Autor Beitrag
whitef
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 202
Erhaltene Danke: 1

Windows X
Delphi XE X
BeitragVerfasst: Mo 20.08.12 23:03 
hi,
ich wollte euch fragen, wie ich meine Form, welche bereits am oberen Bildschirmrand erscheint, alle anderen Fenster verdrängt (bzw. unter sich positioniert).

Der Vorgang des "Neupositionieren" soll dem beim starten der "Bildschirmlupe" (Win 7) gleichen. (Zu finden: Start > Alle Programme > Zubehör > Erleichterte Bedienung > Bildschirmlupe)


Mein bisheriger Code um die Form am oberen Bildschirmrand erscheinen zu lassen:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
Form1.Tray.Active := True;
Form1.Hide;
Form2.Left := 0;
Form2.Top := 0;
Form2.Width := Form1.cpuinfo.Screen.Width;



mfg
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Di 21.08.12 10:19 
Wenn ich mich recht erinnere musst du mit SystemParametersInfo die Workarea entsprechend setzen. Ich bin mir aber nicht sicher, weil das schon ewig her ist. Mir fällt jetzt auch nicht die genau Bezeichnung ein, wie man solche Fenster nimmt. Ich meine da gibt es eine genaue Bezeichnung.

Hab's. Das Stichwort ist Appbar. Damit solltest du fündig werden.
whitef Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 202
Erhaltene Danke: 1

Windows X
Delphi XE X
BeitragVerfasst: Fr 24.08.12 20:02 
Hab hier für mich meine Lösung gefunden, wobei da noch das eine oder andere zu beheben ist :lol:

www.delphipraxis.net...s-4.html#post1179134