как переделать код, чтобы окно сворачивалось сверху вниз

[beegl]

привет, подскажите, как переделать код, чтобы окно сворачивалось «сверху-вниз», а не «снизу-вверх»

procedure TForm1.Hide_Off;
var
   t: DWORD;
   r: TRect;
begin
  {$IFNDEF WHND}
  SystemParametersInfo(SPI_GETWORKAREA, 0,@r,0);
  {$ENDIF}
  {$IFDEF WHND}
  SystemParametersInfo(SPI_GETWORKAREA, 0,r,0);
  {$ENDIF}
 while Form1.Left < r.Bottom do
  begin
   t := GetTickCount;
    while GetTickCount - t < 1 do
    Application.ProcessMessages;
    Form1.Height := Form1.Height - 10;
    if Form1.Height < 160  then
    begin
   Form1.Height := 160;
    Exit;
   end;
  end;
end;

[evg_m]

сворачивалось сверху вниз,

= опускалась бы верхняя граница, а нижняя оставалась бы на месте ?

form.top:=form.top + ???

[beegl]

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

form.top:=form.top + ???

проект движется, надо только часть окна

оо, спасибо, теперь нормально)

 while Form1.Left < r.Bottom do
  begin
   t := GetTickCount;
    while GetTickCount - t < 1 do
    Application.ProcessMessages;
    Form1.Top := Form1.Top - 10;
    Form1.Height := Form1.Height + 10;
    if Form1.Height > 360  then
    begin
   Form1.Height := 360;
    Exit;
   end;

[Человек_Борща]

Опускайте left, top окна одновременно с уменьшением высоты. Получите нужный эффект.

[beegl]

подскажите, как записать числовой ClassName в FindWindow:

PostMessage(FindWindow(nil,'Intertelecom'), WM_CLOSE, 0, 0);

хочу закрыть сообщение об ошибке, но закрывается вся программа, т.к. Caption наследуется из Caption самой программы. Думал, хендлом как-то закрыть

[Человек_Борща]

так же как и заголовок окна. ClassName как и Caption это всегда строка.
Содержимое поля "Class" копируете целиком.

[Аватар]

А так не '#32770' ?

[beegl]

Сообщение от Аватар

А так не '#32770' ?

почему-то не закрывает:

[Человек_Борща]

Может сообщение не то?

[beegl]

Сообщение от Человек_Борща

Может сообщение не то?

WM_HIDE нет для PostMessage

поймал сообщение и закрыл))

if (Pos('/login', URL) > 0) then
  begin
    if (ErrorExists(Browser, ErrorText)) then
      raise Exception.CreateFmt(ERROR_LOGIN, [ErrorText]);

    if (not FillForm(Browser, 'phone', EditUsername.Text)) then
    begin
    Timer7.Enabled := True;
      raise Exception.Create(ERROR_FIELD_PHONE_NOT_FOUND);
    end;

    if (not FillForm(Browser, 'pass', EditPassword.Text)) then
      raise Exception.Create(ERROR_FIELD_PASSWORD_NOT_FOUND);

    if (not AcceptForm(Browser)) then
      raise Exception.Create(ERROR_SUBMIT_FAILED);
  end else
  if (Pos('/statistic', URL) > 0) then
  begin
    List := TStringList.Create();
    try

таймер:

procedure TIntertelecomForm.Timer7Timer(Sender: TObject);
begin
Timer7.Enabled := False;
PostMessage(FindWindow(nil,'Intertelecom'), WM_CLOSE, 0, 0);
end;
end.