Задача на первый взгляд простая, но чтото вот не получается
вообщем на форме по горезонтале стоят 5 кнопок BitBtn, необходимо чтобы они красивым образом плано переехали в другое положени и расположились по вертикали.
вот скинул код для реского перемещения 2х из них с одного положения в другое:
Код:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
If (((Form1.BitBtn1.Top:=208) and (Form1.BitBtn1.Left:=200)) or ((Form1.BitBtn2.Top:=208) and (Form1.BitBtn2.Left:=288)))
Then begin
Form1.BitBtn1.Top:=16; Form1.BitBtn1.Left:=16;
Form1.BitBtn2.Top:=96; Form1.BitBtn2.Left:=16;
end;
end;
end.
Admin: Пользуемся тегами! Иначе санкции!
но вылезли 2ошибки:
[Error] Unit1.pas(29): Operator not applicable to this operand type
[Error] Unit1.pas(31): Type of expression must be BOOLEAN
но мне то нужно чтоб все 5 передвигались и плавно, в дабавок без ошибок.
Зарание спасибо, необходимо для проекта на зачет 1й стадии экзамена
