Tips und Tricks zu Delphi

gesammelt von Volker Rudolf

Alle hier aufgeführten Tips und Tricks wurden von mir unter Delphi 3 getestet!

Noch is die Anzahl der Eintraege nicht unbedingt berauschend, aber ich werde mir die aller groesste Muehe geben, dass sich dies so schnell wie moeglich aendert.

Wer sich aktiv an der Gestalung dieser Seite beteiligen will, kann mir gerne Anregungen aber auch Kritik und Erweiterungen per Mail zukommen lassen, oder auch einen Link ueber die unten aufgefuehrten Eingabefelder hinzufuegen.

Will man eine Anwendung schreiben, die fuer die ganze Laufzeit ein Icon bleiben soll, muss man die Fensterbotschaft "WM_QUERYOPEN" abfangen. Dazu muss im "Private"- Abschnitt folgende Routine deklariert werden:

 
Procedure WMQueryOpen(Var Msg: TWMQueryOpen); Message WM_QUERYOPEN;
 
 
 
 
 
Der Code der oben genannten Routine ist dann nur noch minimal!
 
Procedure TForm1.WMQueryOpen(Var Msg: TWMQueryOpen);
Begin
  Msg.Result:= 0;
End;
 
 
 
 
 
Die Routine faengt die Systemanforderung ab, ein verkleinertes Fenster wiederherzustellen. Dazu muss die Eigenschaft "WindowState" auf "wsMinimized" gesetzt werden.
 
 
Zum Seitenanfang

Fenster darf nicht minimiert werden

Will man verhindern, dass ein Anwender ein Fenster minimiert, oder die Anwendung ueber eine Verknuepfung minimiert startet, kann man das mit sehr geringem Aufwand unterbinden.
 
Zuerst deklariert man im Private Abschnitt des Formulares eine Routine, die auf dieses Ereignis reagiert:
 

Procedure WMSIZE(Var Msg: TWMSIZE); Message WM_SIZE;
 
 
 
 
 
Nun tippt man noch die folgenden Zeilen Code und das Fenster laesst sich nicht mehr minimieren.
 
Procedure TForm1.WMSIZE(Var Msg: TWMSIZE);
Begin
  // abfangen der Anweisung, das Fenster zu minimieren
  If Msg.SizeType = Integer(wsMinimized) Then
  Begin
  // veranlassen, dass das Fenster wiederhergestellt wird
  PostMessage(Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
  End;
End;
 
 
 
 
 
 
Zum Seitenanfang

Mindestgroesse fuer Fenster

Die meisten Fenster benoetigen eine Mindestgroesse, die nicht unterschritten werden darf. Ebenso kann es sinnvoll sein, deren maximalgroesse einzuschraenken. Anstatt nun immer im Ereignis "OnResize" die Eigenschaften "Width" und "Height" zu ueberpruefen und gegebenenfalls anzupassen, ist die folgende Methode sehr viel eleganter.
Immer wenn ein Fenster vom Benutzer vergroessert oder verkleinert wird, wird die Windows-Meldung "WM_GETMINMAXINFO" gesendet. Faengt man diese Meldung ab und setzt die minimalen und maximalen Werte auf die gewuenschte Groesse, kann der Benutzer zur Laufzeit, das Fenster weder verkleinern noch vergroessern.
Zunaechst wird im Abschnitt "Private" der Fenster-Typendeklaration eine Routine deklariert, die auf dieses Ereignis reagiert:

 
Procedure WMGetMinMaxInfo(Var Msg: TMessage); Message WM_GETMINMAXINFO;
 
 
 
 
 
Der Code fuer ein Fenster das die Mindestgroesse von 640x480 Pixeln und einer Maximalgroesse von 600x800 Pixeln betragen soll wuerde dann wie folgt aussehen.
 
Procedure TForm1.WMGetMinMaxInfo(Var Msg: TMessage);
Begin
  PMinMaxInfo(Msg.lParam)^.ptMinTrackSize:= Point(640, 480);
  PMinMaxInfo(Msg.lParam)^.ptMaxTrackSize:= Point(800, 600);
End;
 
 
 
 
 
Zum Seitenanfang

Fenster ohne Titelzeile verschieben

Waehrend man sich evtl. mit dem OnMouseMove Ereignis einen "Wolf" Programmiert kann man sich sehr viel Arbeit sparen, wenn man eine kurze Methode schreibt, die auf das Windows Ereignis WM_NCHITTEST reagiert.
Zunaechst wird im "Private" Abschitt die Methode deklariert:

 
Procedure WMNCHITTEST(Var Msg: TWMNCHITTEST); Message WM_NCHITTEST;
 
 
 
 
 
Der Code im Implementations Abschnitt sieht dann wie folgt aus:
 
Procedure TForm1.WMNCHITTEST(Var Msg: TWMNCHITTEST);
Begin
  Inherited;
  If Msg.Result = htClient Then
  Begin
  Msg.Result:= htCaption;
  End;
End;
 
 
 
 
 
Fertig! Aber was macht diese Routine? Eigentlich nicht viel! Das Ereignis tritt ein, sobald auf das Fenster geklickt wird, die Routine fragt ab, ob der Klick im Fenstertitel (htCaption) oder im Arbeitsbereich (htClient) stattgefunden hat. Wurde der Klick im Arbeitsbereich durchgefuehrt, dann meldet die Routine einfach zurueck, dass der Klick im Fenstertitel stattgefunden hat. Durch diese Taeuschung macht sich Windows daran, das Fenster zu verschieben...
 
 
Zum Seitenanfang

Naechstes Feld bitte

In manchen Faellen kann es durchaus sinnvoll sein, automatisch in das naechste Feld zu wechseln, ohne dass der Benutzer extra die TAB-Taste dafuer bemuehen muss. Oder der Programmierer will dem Anwender die Moeglichkeit geben, mit einer anderen Taste als mit der TAB-Taste von Feld zu Feld springen zu koennen.
Dies wird durch einen Aufruf von PostMessage erreicht.
 

PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
 
 
 
 
 
Zum Seitenanfang

Listfelder mit horizontaler Laufleiste

Normalerweise haben Listenfelder (TListBox) nur vertikale Bildlaufleisten - und diese auch nur, wenn sich nicht alle Eintraege anzeigen lassen. Will man jedoch auch horizontale Laufleisten haben, so muss man die API-Funktion "SendMessage" mit diesem Wunsch benuehen. Dazu muss man sich ueberlegen, wie breit der Eintrag maximal werden kann (in Pixeln!). Im folgenden Beispiel wird davon ausgegangen, dass die Maximalbreite der Eintraege bei 300 Pixeln liegt, dann lautet der Aufruf von "SendMessage"
 

SendMessage(ListBox1.Handle, LB_SetHorizontalExtent, 300, 0);
 
 
 
 
 
Zum Seitenanfang

Aktuelle Zeile und Spalte in Memos

Durch zwei Aufrufe der API-Funktion "SendMessage" erfaehrt man die aktuelle Position des Cursors in Memo- oder RichEditfeldern. Im folgenden Beispiel werden die zwei Aufrufe im OnKeyDown-Ereignis ausgefuert und die Angabe von Spalte und Zeile in einer StatusBar angezeigt.
 

Procedure TForm1.Memo1KeyDown(Sender: TObject; Var Key: Word; Shift: TShiftState);
Var Zeile, Spalte, ChrVor: LongInt;
Begin
  Zeile := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, SelStart, 0);
  ChrVor:= SendMessage(Memo1.Handle, EM_LINEINDEX, Zeile, 0);
  Spalte:= SelStart - ChrVor + 1;
  StatusBar1.SimpleText:= SysUtils.Format('%4d:%4d', [Zeile + 1, Spalte]);
End;
 
 
 
 
 
Zum Seitenanfang

Cursorposition in den Sichtbaren Bereich scrollen

Wie koennte es auch sein? auch hierfuer benoetigt man einen Aufruf von SendMessage. Wurde die Position des Cursors in einem Memo oder RichEdit vom Programm manipuliert, kann diese durch folgenden aufruf von SendMessage in den Sichtbaren Bereich gescrollt werden.
 
 

SendMessage (Memo1.Handle, EM_SCROLLCARET, 0, 0);
 
Das war es dann auch schon...
 
Zum Seitenanfang

Anzeige beliebiger Zeilen in Memos

Durch einen Aufruf von SendMessage kann die Position in Memo und Richedit Feldern auf ein beliebigen Wert gesetzt werden. Normalerweise wird beim ersten Anzeigen eines solchen Feldes ja immer die erste Zeile angezeit.
 

SendMessage(RichEdit1.Handle, EM_LINESCROLL, 0, RichEdit1.Lines.Count - 1);
 
Die letzte Zeile eines Richedit Feldes wird mit dem obigen Aufruf angezeigt.
 
 
Zum Seitenanfang

Rand in Memofeldern

Mit Hilfe der API-Funktion SendMessage, kann der linke bzw. rechte Rand in Memofeldern gesetzt werden. In den folgenden Zeilen werden die beiden API-Aufrufe die benoetigt werden gezeit. Im Beispiel wird ein linker Rand von 10 Pixel erzeugt.
 
Zusätzliche Variable: Rect: TRect;
 

SendMessage(Memo1.Handle, EM_GETRECT, 0, LongInt(@Rect));
Rect.Left:= 10;
SendMessage(Memo1.Handle, EM_SETRECT, 0, LongInt(@Rect));
 
 
 
 
 
 
Zum Seitenanfang

Nicht nur eckige Fenster

Wieso sollten den alle Fenster immer eckig sein ? Die folgenden Zeilen zeigen, wie mit Hilfe der WIN32API auch andere Formen moeglich sind.
 
Ich verwende hier noch die Variable rHandle: THandle.
 

// ein Rechteck mit abgerundeten Ecken als Region Definieren (ohne Titelleiste)
rHandle:= CreateRoundRectRgn(0, 25, Width, Height, Width, Height);
 
// Anzeige der neuen Region
If rHandle <>0 Then
Begin
  SetWindowRgn(Handle, rHandle, True);
End;
 
// Wiederherstellen der urspruenglichen Form und Resourcen freigeben
If rHandle <>0 Then
Begin
  SetWindowRgn(Handle, 0, True);
  DeleteObject(rHandle);
End;
 
 
 
 
 
 
Zum Seitenanfang

Programm nur einmal starten

Delphi 1
In Delphi 1 genügt es noch die Variable hPrevInst auf 0 abzufragen, enthaelt die Variable den Wert 0 dann wurde das Programm noch nicht gestartet.
 
ab Delphi 2
Ab der Version 2 von Delphi ist dies nicht grundlegend schwieriger geworden, jedoch sind einige Programmzeilen mehr erforderlich um zum gewuenschten Ziel zu gelangen.
 

mHandle:= CreateMutex(Nil, True, 'irgendeinName');
If GetLastError = ERROR_ALREADY_EXISTS Then
Begin
  ShowMessage('Programm läuft bereits');
End;
 
Um der Resourcenverschwendung nicht auch noch beizutragen, sollte man daren denken, die bereits belgten Resourcen wieder freizugeben.
 
  If mHandle <> 0 Then
  Begin
  CloseHandle(mHandle);
  End;
 
Wer dies des oefteren benoetigt, sollte sich das ganze in eine Unit in den Initialization Abschnitt packen, denn dann ist ausser dem Einbinden der Unit keinerlei weitere Arbeit zu erledigen. Schlaegt man diesen Weg ein, dann eignet sich der Finalization Abschnitt ganz gut dafuer, die Resourcen wieder frei zu geben.
 
 
 
Zum Seitenanfang
 
 

Links

Delphi-Fundgrube (Simon Reinhardt)

Delphi-Komponenten (Simon Reinhardt)

Link hinzufügen

- ANZEIGE - Clevere Online-Werbung durch ADbeamer Banneraustausch