CPU-Auslastung

[Matze]

Das "Aus der Taskbar verschwinden" mach ich schnel...
Aber durch deine Links dock das Fenster noch nicht an ein anderes an, man erfährt nur, wo sich sie taskbar befindet. :(

[Alexander]

So habe mir die neue Version ncoh mal angekuckt und habe gemerkt das man das Fenster vergrößern und verkleinern kann. Entweder du deaktivierst das oder vergrößerst auch die TGauge oder weas uach immer das ist :mrgreen:

Und man sollte das Fenster dann vielleicht auhc nciht über den Bildschirmran rüberschieben können.

[Alexander]

Ja aber .... :mrgreen:
Da habe ich ja gesagt das weiß ich auch nicht, wie es an andere Fenster ran geht...

Aber ich habe ja shcon gesagt, dass diese -30 nicht optimal ist (siehe oben). Deshalb musst du noch überprüfen, wo sich die Taskbar befindet, die Höhe und ob sie überhaupt angezeigt wird. Das wird dort auf den Seiten erklärt.

[Matze]

OK, danke. Also in der Taskbar wird's jetzt nicht mehr angezeigt (Version noch nicht oben). Jedoch bekomme ich das nicht hin, dass man das Fenster nicht aus dem Bildschirm schieben kann.

Ich hab's so probiert:

Code:

if Form1.Left<0 then Form1.Left:=0;
if Foerm1.Top<0 then Form1.Top:=0;
if Form1.Left>Screen.Width-Form1.Width then Form1.Left:=Screen.Width-Form1.Width;
if Form1.Top>Screen.Height-Form1.Height then Form1.Top:=Screen.Height-Form1.Height;

Also, ehrlich gesagt: ich weiß nicht so recht, wie man das macht.

Gruß Matze

[Stanlay Hanks]

Also ich denke, dass das nicht so einfach sein wird, zu überprüfen, ob ein anderes fenster "in der Nähe ist". So wie ich mir das vorstelle (obwohl ich mich da nicht besonders auskenne :oops:) müsste man doch eigentlich die Position von jedem Fenster überprüfen und dann entsprechend reagieren, oder?

[Matze]

Das wird dann aber etwas Größeres. :wink:
Ich lade gerade die Versio hoch, bei der das Prog nicht in der Taskbar zu sehen ist.

[Alexander]

Versuch mal so:

Delphi-Quellcode:

if (Form1.Left < 0) then
 Form1.Left := 0;

if ((Form1.Left + Form1.Width) > Screen.Width) then
 form1.Left := Screen.Width - Form1.Width;

if (form1.Top < 0) then
 Form1.Top := 0;

if ((Form1.Top + Form1.Height) > Screen.Height) then
 form1.Top := Screen.Height - Form1.Height;

Muss natürlich auch ins WM_Move. Ist allerdings nicht getestet...

[Matze]

Danke alexander, das geht jetzt schon mal. Ich lade es kurz hoch...

[Alexander]

ahh mist ich habe jetzt auch nicht die Taskleiste beachtet, die musst du natürlich hier noch beachten:

Delphi-Quellcode:

if ((Form1.Top + Form1.Height) > (Screen.Height {- taskleistenhöhe...})) then
 form1.Top := Screen.Height - Form1.Height;

[Matze]

So geht das schon, das Stanlay den Code mit dem Andocken an die Taskbar gepostet hat. Probiers doch mal aus. :wink: