Form-Fragen

[EinDelphianer]

Hallo! Ich bin neu hier, und programmiere auch noch nicht lange mit Delphi. Jetzt habe ich drei Fragen.

1) Wie kann ich in meinem Programm einbauen, dass wenn die Form vergrößert oder verkleinert wird, eine "Minimum" bzw. "Maximum"-Größe bekomme

2) Wie könnte ich es hinbekommen, das mein Programm immer im Fordergrund ist, a la Winamp?

3) Wie kann ich eine Form schließen, wenn nicht auf der Form(und deren Komponenten) diese Form schließt.

Ich danke jetzt schon mal für jede Antwort!

[CalganX]

Hi,
also deine Antworten:

1. Schau dir mal die Eigenschaften Contraints an
2. Kann ich dir leider nicht helfen... Sorry
3. Befehl: Close();

Chris

[X-Dragon]

Hi

Für 2 sollte es ausreichen, wenn du in den Form-Eigenschaften FormStyle auf fsStayOnTop setzt.

[EinDelphianer]

Zitat:

Zitat von Chakotay1308

Hi,
also deine Antworten:

1. Schau dir mal die Eigenschaften Contraints an
2. Kann ich dir leider nicht helfen... Sorry
3. Befehl: Close();

Chris

@Chakotay1308. Danke erstmal!

1. Danke, das werde ich machen!
2. Schade
3. Auch wenn ich noch Delphi-Anfänger bin, dass weiß ich doch schon :), da liegt auch nicht mein Problem. Mein Problem liegt vielmehr darin, dass ich nicht weiß, wie man das Programm merkt, das nicht auf die Form geklickt wurde.

[Luckie]

Bitte für unabhängige Fragen jeweils einen separaten Thread erstellen. Danke. :warn:

[EinDelphianer]

@XDragon
Danke! Ich dachte immer, dass fsStayOnTop dazu da wäre, dass es bei meinem Programm immer im Vordergrund ist! Thx!

@Luckie
Werde ich nächstemal machen. Sorry. Ich dachte nur, dass ich die drei Fragen auf einmal stellen könnte, weil sie alle was mit Form zu tuen haben.

Aber kann mir vielleicht noch einer bei meiner 3.Frage helfen?

[RomanK]

Hoi und willkommen.

:wiejetzt:
Also ich hab nicht verstanden was du bei Frage drei willst ... kannst du das vielleicht nochmal schreiben

[Snoop007]

zu frage 2

Code:

procedure SetWindowX(wert : hwnd);
begin
  with Form1 do
  begin
    SetWindowPos(
                 Handle,
                 wert,
                 Left,
                 Top,
                 Width,
                 Height,
                 SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE
                 );
    SetWindowLong(Handle, GWL_USERDATA, 0);
  end;
end;

der aufruf

Code:

    SetWindowX(HWND_TOPMOST); // vor alle fenster
    SetWindowX(HWND_NOTOPMOST);  // hinter alle fenster ( normal )

[sakura]

Was soll der Auslöser für das Schliessen des Forms sein? Inaktivität, das der User ein anderes Form nutzt, etc...
...:cat:...

[Luckie]

Was soll das:

Delphi-Quellcode:

SetWindowLong(Handle, GWL_USERDATA, 0);

[Snoop007]

oops ... hab vergessen das weg zu lassen .. mein fehler
den code habe ich so in einem von meinen programmen ...

[EinDelphianer]

Hallo!
Erstmal danke an alle! Eigentlich ist Frage 2 mit fsStayOnTop schon geklärt! Trotzdem thanks!
Zu Frage3 meine ich das folgendermaßen:
Ich zeige ein 2. Form mit eine klick auf einen Button an, sodass ich die Form an den Button öffnet. Jetzt will ich aber, wenn irgendwo anders hingeklickt wurde, während die 2. Form aktiv ist, soll sich diese wieder schließen, so wie ein PupUp-Menu.
Ich hoffe ich konnte es jetzt etwas verständlicher erklären!
Ich freue mich über weiter Hilfe!

[Snoop007]

das ereignis close tritt ein, wenn die form nichtmehr activ ist

Code:

...
type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    procedure WProc(var Message: TMessage)  ; message WM_KILLFOCUS;
  end;
...

der aufruf

Code:

procedure TForm1.WProc(var Message: TMessage)  ;
begin
  close;
end;

wenn du eine meldung ausgeben möchtest, wird diese solange angezeit, bis die form wieder activ ist

[EinDelphianer]

Danke! Das klappt wirklich super!
Danke an alle Helfenden!