Formeigenschaften in externer Unit verwenden

[Delphi-Narr]

Hallo,
ich stelle mir gerade einige Funktionen zusammen und speicher diese in einer externen Unit.
In einer dieser Funktionen brauche ich die Left- und Topwerte des Fensters. Ich möchte diese aber nicht übergeben müssen... Wie kann ich das machen?


Liebe Grüße!

[Bernhard Geyer]

Zitat:

Zitat von Delphi-Narr

In einer dieser Funktionen brauche ich die Left- und Topwerte des Fensters. Ich möchte diese aber nicht übergeben müssen... Wie kann ich das machen?

Indem du die Formularinstanz als Parameter übergibst. Am besten als TForm.

[Delphi-Narr]

Ja, das möchte ich aber eben nicht machen... Gibt es denn eine Möglichkeit, die Funktion auf das Koordinatensystem der Form zu beziehen, anstatt auf den Screen?

[DeddyH]

Lies Dir Deine Frage nochmal durch und sag uns dann, ob wir wirklich alle nötigen Informationen erhalten haben, um Dir zu helfen. Aber wenn ich richtig im Trüben fische, schau Dir mal ScreenToClient bzw. ClientToScreen an.

[Luckie]

Zitat:

Zitat von Delphi-Narr

In einer dieser Funktionen brauche ich die Left- und Topwerte des Fensters. Ich möchte diese aber nicht übergeben müssen...

Und warum nicht? Wenn diese Funktion die Werte braucht, warum verweigerst du sie ihr dann?

[Delphi-Narr]

Weil es für den Nutzer ein bisschen blöd ist, wenn er immer "Form1" hinschreiben muss...
Außerdem klappt das nicht, da der Border nicht mit einberechnet wird, in den Top- und Leftwerten der Form jedoch mit einbezogen wird:

Wenn ich also Form1 auf 0|0 Ecke oben links setze und zum Punkt 0|100 bewegen möchte, dann bewegt der Mauszeiger sich aber von der Ecke oben links (also mit Border) 100 Pixel nach unten und nicht vom Koordinatensystem der Form aus...

[guinnes]

Zitat:

Zitat von Delphi-Narr

Ich möchte diese aber nicht übergeben müssen..

Und wie soll deine Function dann an die Werte kommen ?

[Delphi-Narr]

Das war ja eben die Frage, ob es auch anders geht...

Ich habe das mal mit Übergabe gemacht, doch das Problem mit dem Border bleibt...

[Sir Rufo]

Zitat:

Zitat von Delphi-Narr

Das war ja eben die Frage, ob es auch anders geht...

Ich habe das mal mit Übergabe gemacht, doch das Problem mit dem Border bleibt...

Dann rechne doch den Border weg ... wofür hat die Form wohl die Informationen ClientHeight und ClientWidth
Und ich würde auch die Formular-Instanz übergeben.

Das sieht dann z.B. so aus:

Delphi-Quellcode:

procedure TForm1.TuWas;  // in der Methode eines TForm ist ...
begin
  MachWasMitDerForm( Self );  // Self die Instanz des Formulars
end;

[DeddyH]

Zitat:

Zitat von Delphi-Narr

Ich habe das mal mit Übergabe gemacht, doch das Problem mit dem Border bleibt...

Zitat:

Zitat von DeddyH

..., schau Dir mal ScreenToClient bzw. ClientToScreen an.

[Delphi-Narr]

Wenn ich jetzt also schreibe

Delphi-Quellcode:

P:=ScreenToClient(Reference.handle,P);

sollte das doch klappen, oder? Reference ist die übergebene Form.

Es kommt bei mir dann aber:

Inkompatible Typen: TPoint und LongBool

[Sir Rufo]

kuckst du mal hier ScreenToClient und ClientToScreen
Dann also wohl eher

Delphi-Quellcode:

P := Reference.ScreenToClient( P );

[Delphi-Narr]

Oh, danke. Ich hab gegooglet und nur diese andere Variante gefunden. Danke!!!