IBDatabase und Loginprompt

[dor557]

Hallo zusammen. nun habe ich das Problem entdeckt.

Hatte die Eigenschaft AutoSize des forms auf True.

Dadurch hatte das Panel eine Höhe von 0. so nun der Code nach der Änderung :

Delphi-Quellcode:

function TstartProcess.Login_Panel : Integer;
begin
  StartProcess.LoginPanel.Visible := true;
  StartProcess.AutoSize := false;
  StartProcess.Height := StartProcess.Height + 100;
  StartProcess.LoginPanel.Height := 100;
  try
    SendMessage(handle, CM_ACTIVATE, 0, 0);
    ModalResult := 0;
    repeat
      Application.HandleMessage;
      If Application.Terminated Then ModalResult := mrCancel else
        if ModalResult <> 0 then LoginPanel.Visible := false;
    until ModalResult <> 0;
    Result := ModalResult;
    SendMessage(Handle, CM_DEACTIVATE, 0, 0);
  finally
    StartProcess.LoginPanel.Visible := false;
    StartProcess.AutoSize := true;
  end;
end;

gruss Sascha