[exgui] Update unit_webrunform

* Add Twnd_webrunform member variables
* Implement Twnd_webrunform functions
This commit is contained in:
RD42 2023-12-06 23:01:25 +08:00
parent d56465f7ff
commit 52ae0859d6
3 changed files with 9 additions and 3 deletions

BIN
exgui/unit_webrunform.dcu Normal file

Binary file not shown.

BIN
exgui/unit_webrunform.ddp Normal file

Binary file not shown.

View File

@ -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.