mirror of
https://github.com/dashr9230/SA-MP.git
synced 2026-10-10 03:33:04 +08:00
[exgui] Update unit_webrunform
* Add Twnd_webrunform member variables * Implement Twnd_webrunform functions
This commit is contained in:
Binary file not shown.
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.
|
||||
|
||||
Reference in New Issue
Block a user