StatusBar

← →
Maxuz © (2002-07-09 01:26) [0]

Проблема ! Есть форма, на ней (почти на всей) располагается TImage. Берем и ресайзим форму... StatusBar иногда ведет себя странно... Типа того что располагается ниже чем надо (половину не видно) и все такое... Если нажать кнопку Развернуть на весь экран, а затем восстановить до начального размера, то видим наличие отсутствия StatusBar"a. Если опять немножко заресайзить форму, то статус бар опять появляется там где надо... Что делать чтобы он всегда был на месте ? TImage тоже меняет размеры вместе с формой по событию OnCanResize...

← →
TTCustomDelphiMaster © (2002-07-09 10:45) [1]

У меня работает без проблем

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
Image1.Width := NewWidth-23;
Image1.Height := NewHeight-71;
end;

А у StatusBar Align = AllBottom ?

StatusBar Найти похожие ветки