Procedure TForm1.FormMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:integer); var btn:TButton; begin Btn:=TButton.Create(self); btn.parent:=self; btn.left:=x; btn.top:=y; btn.width:=btn.width+50; btn.caption:=format('button at %d,%d',[x,y]); end;
var btn:TButton;
begin
Btn:=TButton.Create(self);
btn.parent:=self;
btn.left:=x;
btn.top:=y;
btn.width:=btn.width+50;
btn.caption:=format('button at %d,%d',[x,y]);
end;
left:=
top:=
edit:=tedit.create();
edit.visible:=true;
Button:Tbutton
begin
Button := Tbutton.create(self);