diff options
Diffstat (limited to 'Source/fsspeedbutton.pas')
-rw-r--r-- | Source/fsspeedbutton.pas | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/Source/fsspeedbutton.pas b/Source/fsspeedbutton.pas new file mode 100644 index 0000000..da3d53a --- /dev/null +++ b/Source/fsspeedbutton.pas @@ -0,0 +1,48 @@ +unit fsspeedbutton; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + Buttons; + +type + TFSSpeedButton = class(TSpeedButton) + private + { Private declarations } + procedure MyOnClick(Sender: TObject); + protected + { Protected declarations } + public + { Public declarations } + Receivename: String; + constructor Create(AOwner: TComponent); override; + published + { Published declarations } + end; + +procedure Register; + +implementation + +uses + mainunit; + +procedure Register; +begin +end; + +{ TFSSpeedButton } + +constructor TFSSpeedButton.Create(AOwner: TComponent); +begin + inherited; + OnClick := MyOnClick; +end; + +procedure TFSSpeedButton.MyOnClick(Sender: TObject); +begin + main.SendReturnValues(Receivename+'=1'); +end; + +end. |