So nun Folgende lösung, aber dennoch ein Problem was ich nicht verstehe !! :
Ich habe Folgende Function Geschrieben :
Delphi-Quellcode:
function TstartProcess.Login_Panel : Integer;
begin
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
end;
end;
Diese als Public unter dem SplashScreen eingesetzt. (Bei mir nennt sich das StartProcess wie man sieht...
Dann habe ich einen Button darauf gesetzt der das ModalResult mrOK zurückgibt.
Wenn ich bei der Programmierung das Panel auf :
visible := true;
setze dann wird das angezeigt und ich kann in der Oben angezeigten procedure folgenden code mit hinzufügen :
Delphi-Quellcode:
....
begin
MainProcess.LoginPanel.Visible := false;
try
....
und das Panel verschwindet und ist unsichtbar.
Nur umgekehrt... das es erst sichtbar gemacht wird geht nicht !! hat dafür jemand eine Erklärung ??
PS: die funktion rufe ich genauso auf wie die ShowModal funktion bei mir in dem Fall :
Delphi-Quellcode:
case startProcess.Login_Panel of
mrOK : ShowMessage('Das Modale Panel Funktioniert');
mrCancel :;
end;
Hat jemand eine mögliche Lösung in dem Fall ??
Gruss Sascha