Form unschliessbar und onTop machen?

[Novo]

Zitat von extrem:

Schlechte Fehlerbeschreibung, wenn du den Code im onShow Ereignis des 2. Formulars ausführst, was ist dann nicht so perfekt?

Ich habe jetzt folgenden Code:

Delphi-Quellcode:

procedure TfrmOnTopForm.chkBoxOnTopClick(Sender: TObject);
begin

if chkBoxOnTop.Checked=true then
begin
  SetWindowPos(frmOnTopForm.Handle, HWND_TOPMOST, 0, 0, 0, 0,
    SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end
else
begin
  SetWindowPos(frmOnTopForm.Handle, HWND_NOTOPMOST, 0, 0, 0, 0,
    SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;
Application.NormalizeAllTopMosts;


end;

und wie gesagt, mancham geht es, manchmal nicht!
Dann muss man 3-4x haken setzen udn lösen, bis es wieder funktioniert!

ach erm und hier:
http://www.delphipraxis.net/internal...t.php?t=109459

wurde das ganze schonmal durchgekaut, aber wie gesagt, es funktioniert mal, und mal nicht!