mirror of
https://github.com/dashr9230/SA-MP.git
synced 2024-12-22 14:37:29 +08:00
[exgui] Update unit_webrunform
* Add Twnd_webrunform member variables * Implement Twnd_webrunform functions
This commit is contained in:
parent
d56465f7ff
commit
52ae0859d6
BIN
exgui/unit_webrunform.dcu
Normal file
BIN
exgui/unit_webrunform.dcu
Normal file
Binary file not shown.
BIN
exgui/unit_webrunform.ddp
Normal file
BIN
exgui/unit_webrunform.ddp
Normal file
Binary file not shown.
@ -8,6 +8,11 @@ uses
|
||||
|
||||
type
|
||||
Twnd_webrunform = class(TForm)
|
||||
BitBtn1: TBitBtn;
|
||||
BitBtn2: TBitBtn;
|
||||
BitBtn3: TBitBtn;
|
||||
Label1: TLabel;
|
||||
|
||||
procedure BitBtn2Click(Sender: TObject);
|
||||
procedure BitBtn3Click(Sender: TObject);
|
||||
procedure BitBtn1Click(Sender: TObject);
|
||||
@ -26,17 +31,18 @@ implementation
|
||||
|
||||
procedure Twnd_webrunform.BitBtn2Click(Sender: TObject);
|
||||
begin
|
||||
// TODO: Twnd_webrunform.BitBtn2Click
|
||||
ModalResult:= mrCancel;
|
||||
end;
|
||||
|
||||
procedure Twnd_webrunform.BitBtn3Click(Sender: TObject);
|
||||
begin
|
||||
// TODO: Twnd_webrunform.BitBtn3Click
|
||||
ModalResult:= mrOk;
|
||||
end;
|
||||
|
||||
procedure Twnd_webrunform.BitBtn1Click(Sender: TObject);
|
||||
begin
|
||||
// TODO: Twnd_webrunform.BitBtn1Click
|
||||
ModalResult:= mrYes;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
Loading…
Reference in New Issue
Block a user