![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
К чему две кнопки привязать, чтобы они были внизу по центру?
Сержик © (2001-12-19 15:45:00)Форма растякивается и надо, чтобы OK и CANCEL были внизу по центру.
Dimka Maslov (2001-12-19 17:21:00) [1]
function Center(Value:Integer; HiValue:Integer; LoValue:Integer=0):Integer;
asm
sub edx, ecx
sub edx, eax
shr edx, 1
add ecx, edx
mov eax, ecx
end;
procedure TForm1.FormResize(Sender: TObject);
begin
OkButton.Left:=Center(OkButton.Width+CancelButton.Width+8, ClientWidth);
CancelButton.Left:=OkButton.Left+OkButton.Width+8;
OkButton.Top:=ClientHeight-OkButton.Height-8;
CancelButton.Top:=OkButton.Top;
end;
Jony (2001-12-19 16:49:00) [2]В Anchors кнопок оставить True только в akTop или в akBottom.
v-o-y-a-g-e-r (2001-12-19 16:03:00) [3]а можно кинуть панель , на нее кнопки, у панели выставить размеры и алигмент...
Юрий Зотов (2001-12-19 15:52:00) [4]Напишите код выравнивания кнопок в обработчике OnResize.