Procedure

TfrmODMedComplex.btnUnitsClick

Module

fODMedComplex

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedComplex

Declaration

procedure btnUnitsClick(Sender: TObject);


Source

394   procedure TfrmODMedComplex.btnUnitsClick(Sender: TObject);
395   var
396     APoint: TPoint;
397   begin
398     inherited;
399     APoint := btnUnits.ClientToScreen(Point(0, btnUnits.Height));
400     popUnits.Popup(APoint.X, APoint.Y);
401   end;