unitSKDemoF; interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, SpecKey, Buttons; type
TForm1 = class
(TForm) AccSpeed1: TAccSpeed; TabEdit1: TTabEdit; TabEdit2: TTabEdit; TabEdit3: TTabEdit; Label1: TLabel; Label2: TLabel; procedure
AccSpeed1Click(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end
; var
Form1: TForm1; implementation
{$R *.DFM} procedure
TForm1.AccSpeed1Click(Sender: TObject); begin
ShowMessage ('Acc Speed Button pressed'); end
; end
.
Загрузить исходный код проекта Загрузить библиотеку с компонентами Загрузить ещё одну библиотеку с компонентами