Titelleiste, Startbutton, Desktop, Forms ändern und modden

[Novo]

Hi,
Ich habe jetzt mal nützliche Codes gesammelt, die jeder mal braucht
PS: Sie stammen aus den weiten des Internets, credits to wer auch immer!

Delphi-Quellcode:

  //Titelleiste anzeigen / verstecken
  Params.Style := (Params.Style or WS_POPUP) and not WS_DLGFRAME;

Delphi-Quellcode:

  //Form aus Taskleiste ausblenden
  ShowWindow(Application.Handle, SW_HIDE);

================================================== ==========

Delphi-Quellcode:

  protected
    procedure CreateParams(var Params: TCreateParams); override;

{ ... }

var
  MitRand : boolean = True;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if MitRand then
     // Wenn du nen Fensterrahmen haben willst, dann musst du "Minimieren" deaktivieren
     BorderIcons      := BorderIcons - [biMinimize]
  else
     // Oder gleich "Keinen Fensterrahmen" setzen
     BorderStyle      := bsNone;

  // Nun noch nach ganz oben
  FormStyle        := fsStayOnTop;
end;

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  // Flags setzen
  Params.Style     := Params.Style or WS_OVERLAPPED;

  // Parent auf "Desktop" setzen
  Params.WndParent := GetDesktopWindow;             
end;

================================================== ==========





Startbutton Anzeigen/Verstecken (Deaktiviert auch das Startmenü)
Beispiel: ShowStartButton(False);

Delphi-Quellcode:

procedure ShowStartButton(bvisible: Boolean);
var    h: hwnd;   
TaskWindow: hwnd;  
begin    
if bvisible then    
begin      
h := FindWindowEx(GetDesktopWindow, 0, 'Button', nil);      
TaskWindow := FindWindow('Shell_TrayWnd', nil);      
ShowWindow(h, 1);      
Windows.SetParent(h, TaskWindow);   
end    
else    
begin     
h := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil);
ShowWindow(h, 0);      
Windows.SetParent(h, 0);   
end; 
end;

================================================== ==========




Formular lässt sich nicht schließen (Alt+F4 wird auch deaktiviert)
Programm kann nur über Application.Terminate; geschlossen werden

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
begin    
CanClose := False;  
end;

================================================== ==========




Desktop/Taskleiste (de)aktivieren

Delphi-Quellcode:

Desktop:

//ausschalten  
ShowWindow(FindWindow(nil,'Program Manager'),sw_hide); 
//einschalten  
ShowWindow(FindWindow(nil,'Program Manager'),sw_show);

Delphi-Quellcode:

Taskleiste:

//deaktivieren  
 EnableWindow(FindWindow('Shell_TrayWnd', nil),false);  
//aktivieren   
EnableWindow(FindWindow('Shell_TrayWnd', nil),true);

================================================== ==========

Delphi-Quellcode:

//Main Form nicht anzeigen!
 Application.ShowMainForm:= false;

================================================== ==========





Wie manipuliere ich die Form eines Formulars ( z. B. Formular als Kreis )?
Dafür gibt es die sogenannten "Regions":

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender:TObject);
var HR: HRgn;
      n:array[0..3] of TPoint;
begin
  n[0]:=Point(Width div 2,1);
  n[1]:=Point(1, Height div 2);
  n[2]:=Point(Width div 2,Height);
  n[3]:=Point(Width, Height div 2);

  HR:= CreateEllipticRgn (0, 0, Width, Height);
  {oder eine Raute:
  HR:= CreatePolygonRgn(n, 4, Alternate);}

  SetWindowRgn(Handle, HR, True);
end;

Dieses Beispiel hat Michael Schüle in dclpd gepostet. Die Anregung dazu hat er wohl dem Buch "Borland Delphi 3 für Profis" von Walter Doberenz und Thomans Kowalski aus dem Hanser Verlag entnommen.

Applications running in different resolutions

1. I belive I have found the answer to a lot of peoples questions (mine included) about Applications that run in different resolutions.
The problem is if you develop an Application in one resolution, say 1024x768 using Large fonts, then try and run it at say 800x600 using Small fonts. Labels get chopped and components are different sizes than when designed. Other weird looking things happen too.
Well, I found that by changing the PITCH property on the FONT to VARIABLE instead of DEFAULT that it looks the same in every resolution.
This should be done to every component and to the Form itself. (Does anyone know where "Default" is set?)
2. After much experimenting, it appears that delphi figures some font size and scaling factors at design time, and doesn't re-calculate them at run time.
This seems to cause some of the "special effects" at different resolutions (i.e. edit boxes with only half of the text visible, and labels partly chopped off).
To get around this, make delphi re-calculate these values, by simply assigning the main form's font at run time (in the oncreate event), as well as any other controls in which you didn't use the ParentFont option.
I think calling the Font's OnChange event will correct the problem as well, but I haven't tried it yet. I sincerely wish we could get a difinitive answer from borland, or someone very knowledgeable on this topic.
On a side note, if I tried to re-assign PixelsPerInch, or the scaled properties at run time, I got a general protection fault (even the example code in the help file gave a GPF).


Code-Schnipsel dafür:
Auf jeden Fall habe ich mal ein Stueck Code dafuer gekriegt, das zu meiner grossen Ueberraschung bis jetzt jedes Formular mitsamt allem Geraffel drauf prima skaliert hat.
Es sind nur ein paar Zeilen im FormCreate des Haupt- formulars und dazu zwei Konstanten (global definiert):

Delphi-Quellcode:

const ScreenWidthDev  = XXX;
      ScreenHeightDev = YYY;

{statt XXX und YYY die Aufloesung zur Entwicklungszeit eintragen.
Angeblich soll der Code am besten von der hoechsten Aufloesung
runterskalieren. Ich musste aber immer von 640/480 (die hohen
Aufloesungen kommen bei mir nicht so gut) hochskalieren und es
ging auch.}

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var x,y: Integer; // f. Bildschirmauflösung
begin
  Scaled:= true;
  x:= Screen.Width;
  y:= Screen.Height;
  if (x<>ScreenWidthDev) or (y<>ScreenHeightDev) then begin
    Form1.Height:= (Form1.ClientHeight*y div ScreenHeightDev) +
                    Form1.Height - Form1.ClientHeight;
    Form1.Width:= (Form1.ClientWidth*y div ScreenWidthDev) +
                   Form1.Width - Form1.ClientWidth;
    ScaleBy(x,ScreenWidthDev);
  end; // of if

Worueber ich mich immer wieder wundern kann: Mit dieser Methode werden ALLE Fenster des Projekts skaliert, obwohl doch eigentlich ausdruecklich nur Form1 skaliert wird. Komisch.






================================================== ==========




Ein Fenster einer Anwendung immer zuoberst anzeigen, auch bei minimiertem Hauptfenster
Manchmal möchte man, daß geöffnete (Unter-)Fenster einer Anwendung auf dem Desktop bleiben, wenn das Hauptfenster minimiert wird, oder daß ein Fenster immer im Vordergrund bleibt,
auch wenn es nicht den Fokus hat.

Ich will mal kurz zeigen, wie man das zur Laufzeit einstellen kann:

Delphi-Quellcode:

//OnTop..
SetWindowPos(Handle, HWND_TOPMOST, Left,Top, Width,
             Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
//..und zurück:
SetWindowPos(Handle, HWND_NOTOPMOST, Left, Top, Width,
             Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

//OnDesktop..
SetWindowLong(Handle, GWL_HWNDPARENT, 0);
//..und zurück:
SetWindowLong(Handle, GWL_HWNDPARENT, Application.Handle);

FormStyle dabei auf fsNormal setzen. Das ist alles! (Ralph Stoesser)






================================================== ==========






Wie kann ich ein Fenster transparent darstellen?

Zwei einfache Tricks, um ein Fenster "unsichtbar", also transparent zu zeichnen:

1. So kann man die Transparenz zur Laufzeit umschalten:

Delphi-Quellcode:

Procedure MakeWindowTransparent (Form: TForm);
Var CurrentStyle : LongInt;
Begin
  Form.Visible := False;
  CurrentStyle := GetWindowLong(Form.Handle, GWL_EXSTYLE);
  SetWindowLong(Form.Handle, GWL_EXSTYLE, CurrentStyle Or WS_EX_TRANSPARENT);
  Form.Visible := True;
End; {Paul Röttgen}

Procedure MakeWindowOpaque (Form: TForm);
Var CurrentStyle : LongInt;
Begin
  Form.Visible := False;
  CurrentStyle := GetWindowLong (Form.Handle, GWL_EXSTYLE);
  SetWindowLong(Form.Handle, GWL_EXSTYLE, CurrentStyle And Not WS_EX_TRANSPARENT);
  Form.Visible := True;
End; {Paul Röttgen}

2. So wird ein Fenster transparent erstellt:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Brush.Style := bsClear;
  Form1.BorderStyle := bsNone;
end;

Allerdings sorgt dieses Beispiel nur dafür, daß beim Zeichnen des Fensters der Hintergrund nicht übermalt wird. Soblad das fenster verschoben wird oder der Hintergrund sich ändert, ist der Anschein der Transparenz dahin.




Wie erzeuge ich ein Formular ohne Titelleiste?

1. Möglichkeit:
TForm.BorderStyle auf bsNone zu setzen. Leider ergibt das ein Formular, das dann gar keine Begrenzung mehr hat. Abhilfe schafft ein TBevel, dessen Align man auf alClient setzt.

2. Möglichkeit:
Die Methode CreateParams überschreiben, in der der Parameter-Record für die Fenstererzeugung initialisiert wird:

Delphi-Quellcode:

{ Private Deklaration }
procedure CreateParams(var Params : TCreateParams); override;
...
{ Implementation: }
procedure TForm1.CreateParams(var Params : TCreateParams);
begin
  Inherited Createparams(Params);
  with Params do
    Style := (Style or WS_POPUP) and not WS_DLGFRAME;
end;

Diese Kombination hat den Effekt, daß die Titelleiste entfernt wird, der Begrenzungsstil aber den eingestellten Wert behält.



3. Möglichkeit:

Delphi-Quellcode:

In der OnCreate-Methode des Formulars die API-Funktion "SetWindowLong" aufrufen:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE)
                              and not WS_CAPTION);
  ClientHeight:=Height;
end;

================================================== ==========





Um ein Formular ohne Titelleiste noch mit der Maus verschieben zu können, muß man diesem einen Klick auf die (nicht vorhandene) Titelzeile vorgaukeln,
wenn der Anwender auf eine beliebige Stelle im Formular klickt. Dazu fügt man folgenden Code in die "OnMouseDown"-Methode des Formulars ein:

Delphi-Quellcode:

if ssLeft in Shift then begin
  ReleaseCapture;
  Self.Perform(WM_NCLBUTTONDOWN, HTCAPTION, varEmpty);
end;

================================================== ==========





Mit der Enter-Taste den Fokus auf das nächste Control setzen
Um nach Betätigen der Enter-Taste zum nächsten Control auf einem Formular zu wechseln, muß man zuerst die "KeyPreview"-Eigenschaft des Formulars auf "true" setzen.
Anschließend kann man in der OnKeyPress-Methode des Formulars auf die Enter-Taste reagieren:

Delphi-Quellcode:

procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then begin   {#13 = Enter}
    Key := #0;
    PostMessage(Handle, WM_NextDlgCtl, 0, 0);
  end;
end;

Bemerkung: Das funktioniert nicht mit einem DBGrid, weil das nächste Feld dort kein separates Objekt darstellt.
Welche Ereignisse werden beim Erstellen und Anzeigen eines Formulars ausgelöst?
Folgende Ereignisse werden in dieser Reihenfolge abgefeuert:

* OnCreate
* OnShow
* OnPaint
* OnActivate
* OnResize
* und nocheinmal OnPaint.





================================================== ==========




Taskbareinträge auch für untergeordnete Formulare anzeigen

Mit der API-Funktion "SetWindowLong" kann man den Fensterstil so einstellen, daß auch für untergeordnete Dialogfenster eines Programms Einträge in der Windows-Taskbar erscheinen:

Delphi-Quellcode:

procedure TForm2.FormShow(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_ExStyle, WS_Ex_AppWindow);
end;

================================================== ==========





Im Abschnitt "Applikationen" der Delphi Fundgrube erfährt man, wie man ein Programm ganz ohne Taskbareinträge starten kann.
Ein Fenster zum obersten Fenster (Topmost) auf dem Desktop machen
Mit welchem API-Aufruf kann ich ein Fenster zum Vordergrundfenster machen (also auch gegenüber Fenstern von anderen Prozessen), so als würde FormStyle auf fsStayOnTop stehen?
Mit der API-Funktion "SetWindowPos" bestimmt man unter anderem auch die Position eines Fensters in der Z-Ordnung:

Delphi-Quellcode:

{Fenster nach vorne setzen:}
SetWindowPos(Handle,
             HWND_TOPMOST,
             Left,Top, Width,Height,
             SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

{..und wieder zurück:}
SetWindowPos(Handle,
             HWND_NOTOPMOST,
             Left, Top, Width,Height,
             SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

================================================== ==========




STRG + ALT + ENTF deaktivieren (WindowsXP)

Delphi-Quellcode:

procedure ctrlaltdel; 
var a,b,c:hwnd; 
begin 
a:=FindWindow('#32770', NiL); 
b:=findwindowex(a,0,'#32770',nil);
c:=findwindowex(b,0,'SysListView32',nil); 
enablewindow(c,false);
end;

//put a timer(interval = 5) and write this to ontimer event
ctrlaltdel;

================================================== ==========




Windows Version auslesen:

The following information applies to:
* Windows API
* Delphi (All Versions)

Steps, Assumptions, Procedures:

* Uses Windows.pas

Delphi-Quellcode:

procedure GetOSVersion;
var
VersionInfo: TOSVersionInfo;
Platform: string;
MajorVersion,MinorVersion,Build: DWORD;
begin
  VersionInfo.dwOSVersionInfoSize := SizeOf(VersionInfo);
  GetVersionEx(VersionInfo);
  
  with VersionInfo do
  begin
  case dwPlatformId of
   VER_PLATFORM_WIN32s:        Platform := 'Windows 3x';
   VER_PLATFORM_WIN32_WINDOWS: Platform := 'Windows 95';
   VER_PLATFORM_WIN32_NT:      Platform := 'Windows NT';
  end;
  
  MajorVersion := dwMajorVersion;
  MinorVersion := dwMinorVersion;
  Build := dwBuildNumber;
  end;
end;