Formular ausserhalb des Screens verhindern

[Logan]

Hallo,

ich muss ein Programm schreiben, dass nicht ausserhalb des Bildschirmes rausdarf. Ich weiss nicht welche Ereignisprozedur (beim Formular) nötig für ist oder handelt es sich nur um eine Einstellung im IO?

Danke schon im Vorraus!

MfG
Logan

[Khabarakh]

Zitat von Logan:

IO

Ibjekt-Onspektor ?
Beim Verschieben des Fenster werden die Messages WM_MOVING (davor) und WM_MOVE (danach) an es geschickt, diese könntest du abfangen.

[Tyrael Y.]

Die TForm Eigenschaft

  Position := poScreenCenter; sollte dir weiterhelfen

[dahead]

Zitat von Tyrael Y.:

Die TForm Eigenschaft

  Position := poScreenCenter; sollte dir weiterhelfen ;)

das bewirkt ja nur, dass es beim programmstart im screen zentriert ist.

[Neutral General]

Oder du machst einfach einen Timer oder einen Thread der immer überprüft wo die Form ist und dann z.B

if Form.Left < 0 then Form.Left := 0; Beim Timer müsstest du dann den Intervall ziemlich klein stellen.

[fkerber]

Hi!

Ein Timer ist da wohl wenig sinnvoll.
Vielleicht im onPaint des Forms? Beim verschieben wird es ja wohl neu gezeichnet.


Ciao Frederic

[thomasch]

Ich würde TWMMoving auswerten und die Ausdehnung des Forms gegen den screen testen.
Als Ansatz :

Delphi-Quellcode:

type
  TWMMoving = record
    Msg: Cardinal;
    fwSide: Cardinal;
    lpRect: PRect;
    Result: Integer;
  end;
  TForm1 = class(TForm)
    Image1: TImage;
    cxLabel2: TcxLabel;
  private
  procedure OnMoving(var Msg: TWMMoving); message WM_MOVING;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.OnMoving(var Msg: TWMMoving);
begin
  if self.Top<1 then
  begin
    self.Top:=1;
  end;
  if (self.Left<1) then
  begin
    self.Left:=1;
  end;
  if ((self.Left+self.Width)>screen.Width) then
  begin
    self.Left:=(screen.Width-self.Width);
  end;
  if ((self.Top+self.Height)>screen.Height) then
  begin
    self.Top:=screen.Height-self.Height;
  end;
end;

[Tyrael Y.]

Zitat von dahead:

Zitat von Tyrael Y.:

Die TForm Eigenschaft

  Position := poScreenCenter; sollte dir weiterhelfen

das bewirkt ja nur, dass es beim programmstart im screen zentriert ist.

Das ist mir bewusst...ich dachte mir eher, daß er genau das sucht und sich unglücklich ausgedrückt hat....eine Form die als maximale Größe die Screengröße hat, wird denke ich für den Benutzer sehr umständlcih zu händeln sein und ihn verwirren...

...ich zieh die Form zur Seite und die Form wird schmaler, dadurch werden eventuell Controls auf der Form falsch dargestellt...mhhh..nicht so gut...besonders wenn man das ganze noch erweitern möchte.....falls der Weg gesucht wurde sry für meine Antwort...

wie gesagt dachte eher, daß es unglücklich formuliert wurde

Gruß

[Logan]

Danke Thomasch hat sehr geholfen!!!

[Logan]

was ich aber nicht ganz vertstehe ist das hier:
procedure OnMoving(var Msg: TWMMoving);
message WM_MOVING; //<----

Wärst du so nett und könntest es mir erklären