16 lines
295 B
ObjectPascal
16 lines
295 B
ObjectPascal
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.
|