Mein Problem wird im nachhinein sich als ziehmlich simpel erweisen. Trotzdem funktionieren meine bis jetzt unternommenden Versuche nicht.
Ich habe ein Formular, was folgende Eigenschaften hat:
BorderStyle: None;
TransparentColor: True;
Auf dieser Form liegt eine Image-Kompe, dessen Picture die Form des Fensters bestimmt. Im MouseDown-Ereignis der Image-Kompo befindet sich folgender Code zum Positionswechsel des unsichtbaren Fensters:
Delphi-Quellcode:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then begin
ReleaseCapture;
Self.Perform(WM_NCLBUTTONDOWN, HTCAPTION, varEmpty);
end;
end;
Soweit so gut.
Jetzt habe ich ein Label auf die Form gesetzt, was mir die aktuelle Position des Fensters anzeigen soll.
Im Image-Ereignis MouseUp habe ich folgenden Code festgelegt:
Label1.Caption:=IntToStr(Form1.Top);
Eigentlich müßte das Label jetzt die aktuelle Position des Fensters anzeigen. Leider Fehlanzeige.
Sinn und Zweck der Übung ist lediglich der, dass beim nächsten Start der Anwendung die gewählte Position automatisch festgelegt wird.