задание про перемишение 2х кнопок

[TR1BUNAL]

есть 2 кнопки but1 и but2 нада чтобы при нажадите на бат1 перемешялась бат2 а на место бат1 бат2))) хелп плз срочно) и кто сможет завтро помоч дайте свой icq

[TR1BUNAL]

help срочно

[ZuBy]

зная св-во left у каждого компонента, ты легко сможешь их поменять местами
действуй...

[phomm]

по какому дествию ? пример для нажатия первой кнопки

procedure tform1.but1click(sender : tobject);
var i, j : word;
begin
i := but2.left;
j := but2.top;
but2.left := but1.left;
but2.top := but1.top;
but1.left := i;
but1.top := j;
// меняем чисто координаты кнопок, т.е реальные объекты, хотя можно и просто надписи поменять.. 
//но тогда эта процедура не поменяет свою кнопку после исполнения
end;

[Sparkman]

procedure TForm1.Button1Click(Sender: TObject);
var t:integer;
begin
     t:=button1.Left;
     button1.Left:=button2.Left;
     button2.Left:=t;
     t:=button1.Top;
     button1.Top:=button2.Top;
     button2.Top:=t;
end;

У события OnClick второй кнопки прописать Button1Click.

[TR1BUNAL]

Сообщение от Sparkman

procedure TForm1.Button1Click(Sender: TObject);
var t:integer;
begin
     t:=button1.Left;
     button1.Left:=button2.Left;
     button2.Left:=t;
     t:=button1.Top;
     button1.Top:=button2.Top;
     button2.Top:=t;
end;

У события OnClick второй кнопки прописать Button1Click.

Sparkman, phomm спс