Form anpassen

Joker_07 · Beiträge: 55

Moderiert von Narses: Bild als Anhang hochgeladen
Wie ihr hier sehen könnt ist ein screenshot von meinem Programm, wie es im moment ist und wie es sein sollte, also links seht ihr mein programm und ein weiteres programm. Mein Programm nimmt etwas platz ein, also wenn ich das andere Programm minimieren möchte muss ich erst mein programm verschieben, und ich möchte das alle anderen fenster sich anpassen und wenn man auf maximieren klickt, das andere programm nicht das ganze bildschirm einnehmen sondern nur bis zu meinem Sidebar... das ist ja auch bei icq zum beispiel der fall...
danke schon im vorraus
mfg joker_07

Moderiert von Gausi: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am So 13.07.2008 um 15:49

Einloggen, um Attachments anzusehen!

elundril · Verfasst: So 13.07.08 15:47

ich weiß nicht ob das hilft aber ich post mal den Link:
www.delphi-library.d...mp;highlight=desktop

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

mkinzler · Verfasst: So 13.07.08 15:47

Durch Skinning

_________________
Markus Kinzler.

elundril · Verfasst: So 13.07.08 15:50

ähhhm... durch skinning wird es auch nicht besser das andere Fenster unter seinem sind würd ich mal raten. ;-)

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

PeterPain · Beiträge: 83

SystemParametersInfo(SPI_SETWORKAREA, 0, @WhatEverRect, 0);

gruss

Yogu · Verfasst: So 13.07.08 18:41

elundril hat folgendes geschrieben:

ich weiß nicht ob das hilft aber ich post mal den Link:
www.delphi-library.d...mp;highlight=desktop

Das war doch schon des Rätsels lösung, nämlich folgende Prozedur:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure ModifyWorkArea(VLeft,VTop,VRight,VBottom:integer);
var
  rcWork: TRect;
begin
  rcWork.Top:=VTop;
  rcWork.Left:=VLeft;
  rcWork.Bottom:=GetSystemMetrics(SM_CYSCREEN)-VBottom;
  rcWork.Right:=GetSystemMetrics(SM_CXSCREEN)-VRight;
  SystemParametersInfo (SPI_SETWORKAREA, 0, @rcWork, SPIF_SENDCHANGE);
end;

Du musst nur noch irgendwie die aktuelle WorkArea herausbekommen, dann kannst du mit dieser Methode den rechten Rand um einges nach links verschieben. Anschließend brauchst du nur noch dein Fenster so wie immer rechts hinkleben, und natürlich das Verschieben verbieten. Sonst hüpft es sofort nach dem Mausdrücken in die WorkArea.

einfach112 · Beiträge: 168 xp del7

also deine appbar sieht ja vom grafischen 100 % endgeil aus .....

Womit machst du die grafiken ?! (wenn man mal fragen darf ?)
mfg einfach112

_________________
sorry bin noob !

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme