Modales Fenster per Klick auf aufrufende Form schließen lassen

[Hobbycoder]

Zitat von mkinzler:

Dann wäre es ja keine modale Form ...

Jain. Es soll sich in etwa so verhalten, wie z.B. das Zoomen von Bildern auf manchen Webseiten (Ein Klick neben dem Bilder verkleinert es wieder).
Aber es soll schon Modal sein, heißt der Benutzer soll während diese Form offen ist, nicht in der aufrufenden etwas ändern können.

Es geht hier rein um den Komfort nicht zwingen das X oben rechts treffen zu müssen
Ist auch nicht auf meinen Mist gewachsen, sondern ein Wunsch von einem Kunden, der das selbst einer seiner Anwendungen wohl so hat(Name ist mir nicht bekannt).

Zitat von Sherlock:

Vorschlag: Keine eigene Form verwenden, sondern ein Panel auf einem durchsichtigem Panel in Applikationsgröße plazieren. Klicks auf dieses Panel können problemlos erkannt und ausgewertet werden. Einzig das verschieben des "Fenstres" ist dann nicht mehr so ganz einfach....aber machbar.

Hm...klingt für mich etwas aufwendig. Müsste doch einfacher gehen.

Zitat von DieDolly:

Die Idee mit dem Panel-Gefrickel erinnert mich an dubiose Software ala Registry-Cleaner und Konsorten im pseudo-professionellen Stil.

ich würde einfach ein nicht-modales Fenster anzeigen lassen, was aber OnTop ist.

OnTop heißt dann aber, dass er doch Zugriff auf die Controls der aufrufenden Form hat. Das darf aber nicht sein (gut, ich könnte die alle irgendwie disablen, aber das ist nicht ganz was ich möchte)

Zitat von FBrust:

Auch wenn das, wie Markus schon sagt, dem Prinzip der modalen Form etwas zuwiderläuft, könntest Du die X- und Y-Werte des Mausklicks erfassen und feststellen ob sie

a) außerhalb der modalen Form
b) aber innerhalb der X- und Y-Werte Deiner Hauptform liegen.

Aber persönlich halte ich es für besser, eine modale Form durch eine Aktion innerhalb dieser Form zu schließen.

Das ist es, woran ich gerade rumprobiere. Letztlich brauch ich ja nur einen Event und schicke dann einfach eine Message an die modale Form. Dann kann sie sich ja "von innen" schließen.

Zur Zeit probiere ich gerade mit Application.OnMessage rum. Könnte auch funktionieren, allerdings wir die Message WM_LBUTTONDOWN nicht geschickt, wenn außerhalt der modalen Form (aber noch auf der Hintergrundform) geklickt wird.

[DieDolly]

Zitat:

gut, ich könnte die alle irgendwie disablen, aber das ist nicht ganz was ich möchte

Und die ganze Form Enabled auf False setzen? Einen Klick darauf sollte man trotzdem noch registrieren können.

[hoika]

Hallo,
du könntest die 2. Form auch semimodal aufrufen,
dann bleibt das 1. Form noch so bedienbar, wie du das willst.

Was passiert aber, wenn der Nutzer auf einen Button in dem 1. Form klickt,
soll dann der Button ausgelöst werden, oder das 2. Form geschlossen werden?

[Hobbycoder]

Zitat von hoika:

Hallo,
du könntest die 2. Form auch semimodal aufrufen,
dann bleibt das 1. Form noch so bedienbar, wie du das willst.

Was passiert aber, wenn der Nutzer auf einen Button in dem 1. Form klickt,
soll dann der Button ausgelöst werden, oder das 2. Form geschlossen werden?

Was meinst du mit "Semimodal"?

Worauf der Benutzer klickt, soll im Grunde egal sein (allerdings soll der OnClick-Event der Controls, was er anklickt nicht ausgeführt werden). Sobald dieser Klick außer halb der Form ist, will ich irgendwas..ein Event, eine Message, damit ich darauf überhaupt reagieren kann.

[hoika]

Hallo,
etwa so

Delphi-Quellcode:

var
  Form       : TFormSemi;
  WindowList : Pointer;

procedure ErzeugeForm
begin
  Form:= CreateStateForm(theCaption, theInfo);
  WindowList:= DisableTaskWindows(Form.Handle);
  Form.Show;
  Application.ProcessMessages;

  // hier geht es im 1. Form ganz normale weiter

end;


procedure GibFormFrei
  Form.FCanClose := True;
  EnableTaskWindows(WindowList);
  Form.Free;

Das ganze noch mit einer Boolean-Variable, die im OnKeyDown (KeyPreview=True) des 1. Forms prüft,
ob das semimodale 1. Form gerade läuft und dann in diesem Fall GibFormFrei aufruft

[Hobbycoder]

Ich habe das mal so versucht:

Delphi-Quellcode:

procedure TModaleForm.WMCapturechanged(var Message: TMessage); //message WM_CAPTURECHANGED;
var
  mp: TPoint;
begin
  if GetCursorPos(mp) then
  begin
    if not (PtInRect(Self.BoundsRect, mp)) then self.Close;
  end;
  inherited;
end;

Funktioniert schon mal wie gewünscht....aber nur beim ersten Mouseklick. Wird dieser innerhalb der modalen Form gemacht, wird WM_CAPTURECHANGED nicht mehr gefeuert.!?
Gibt es eigentlich eine Gegenstückt zu WM_CAPTURECHANGED?

[Hobbycoder]

Zitat von hoika:

Hallo,
etwa so

Delphi-Quellcode:

var
  Form       : TFormSemi;
  WindowList : Pointer;

procedure ErzeugeForm
begin
  Form:= CreateStateForm(theCaption, theInfo);
  WindowList:= DisableTaskWindows(Form.Handle);
  Form.Show;
  Application.ProcessMessages;

  // hier geht es im 1. Form ganz normale weiter

end;


procedure GibFormFrei
  Form.FCanClose := True;
  EnableTaskWindows(WindowList);
  Form.Free;

Das ganze noch mit einer Boolean-Variable, die im OnKeyDown (KeyPreview=True) des 1. Forms prüft,
ob das semimodale 1. Form gerade läuft und dann in diesem Fall GibFormFrei aufruft

Hm...muss ich mal probieren. Aber das würde nicht verhindern, dass ein Control der 1. Form angeklickt wird. Das könnte ich in OnMouseDown ja noch regeln.
Und was ist CreateStateForm? Ich kenn nur CreateForm.

[hoika]

CreateStateForm = TSemiForm.Create

Ich hatte es aus einem alten Projekt rauskopiert und das dort vergessen, u ersetzen