type TfmPosition = class()
procedure ApplyPosition; |
|
procedure btnApplyClick(Sender: TObject); |
|
procedure btnCancelClick(Sender: TObject); |
|
procedure btnCopyClick(Sender: TObject); |
|
procedure btnOKClick(Sender: TObject); |
|
procedure FormShow(Sender: TObject); |
|
procedure GetPosition; |
procedure ApplyPosition; |
procedure btnApplyClick(Sender: TObject); |
procedure btnCancelClick(Sender: TObject); |
procedure btnCopyClick(Sender: TObject); |
procedure btnOKClick(Sender: TObject); |
procedure FormShow(Sender: TObject); |
procedure GetPosition; |