Координаты сгенерированных кнопок.

[Selite]

Здравствуйте, прошу помочь с небольшим дельцем, вот код работающей программы:

procedure tform1.btn_click(sender: tobject);
begin
self.color:=strtoint(copy((sender as tbutton).Caption,4,length((sender as tbutton).Caption)-3));
end;

procedure tform1.formdblclick(sender:tobject) ;

var
btn:tbutton;
x,y:integer;

begin
randomize;
btn:=tbutton.create(self);
with btn do
begin
width:=100;
height:=30;
left:=random((sender as tform).ClientWidth-100);
top:=random((sender as tform).ClientHeight-30);
caption:=datetimetostr(time) + tdate;
parent:=(sender as tform);
parentfont:=false;
Onclick:=btn_click;
end;
end;

До имплимитейшна еще прописан приват у формы.


Программа создает в случайных местах кнопки с датой их создания. Нужно, чтобы помимо даты там были их координаты (X,Y). Собственно нупский вопрос - как мне узнать эти координаты?

[Selite]

up.

Извиняюсь за ап, но дело жмет - иначе мне хана =)

PSы ни яд ни гугл не знают =(

[Selite]

Гммм


[цензура] я такой [цензура]

Ппц. У меня уже есть координаты эти (Left = x, Top = y).... видимо сказывается болезнь и вынесенный за сегодня мозг :D


В общем если кому понадобится в дальнейшем вот код программы для Создания кнопок в случайных местах и написания на них даты-времени-координат:

procedure tform1.formdblclick(sender:tobject);

var
btn:tbutton;

r:trect;


begin
randomize;
btn:=tbutton.create(self);
with btn do
 begin
  width:=200;
  height:=30;
  left:=random((sender as tform).ClientWidth-100);
  top:=random((sender as tform).ClientHeight-30);
  caption:=datetimetostr(time) + '    ' + 'x=' + inttostr(btn.left) + 'y=' + inttostr(btn.top);
  parent:=(sender as tform);
  parentfont:=false;

  end;
end;

До этого, разумеется, прописываем процедуру двойного клика по форме.