n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/gr_ButtonProba.pas

15 строк295 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

uses GraphABC,ABCObjects,ABCButtons,Events;
 
var b: ButtonABC;

procedure Click;
begin
  b.Text:='������!';
end;
 
begin
  b:=ButtonABC.Create(10,10,240,'������12345678901234567',clMoneyGreen);
  b := new ButtonABC(10,10,240,'������12345678901234567',clMoneyGreen);
  
  b.OnClick:=Click;
end.