Tips und Tricks für Delphi


Autor: Max Kleiner, max_kleiner@compuserve.com, Kleiner Kommunikation, Bern, Schweiz
Letzte Überarbeitung: 29.01.12
Eine kommerzielle Weiterverwendung dieses Textes ist bei korrekter Zitierweise unter Angabe der Quelle erlaubt.


Inhaltsverzeichnis

  1. Multitaskingfähiges Delay
  2. Schnelle Zufallswörter um Listen etc zu füllen
  3. Kommentar im Kommentar
  4. Mehrfachsortierung innerhalb einer Tabelle
  5. Rechenzeit freigeben
  6. Form immer zentrieren
  7. Menü programmgesteuert öffnen
  8. Übersicht über weitere Tips und Tricks in Download-Datei

Multitaskingfähiges Delay
StartTime: real;

begin
    StartTime:=Time;
    Repeat
      WaitMessage;
    Until Time > StartTime + 1*(1/24/60/60);

Schnelle Zufallswörter um Listen etc zu füllen
for t:= 1 to 50 do
    begin
      newWord:=chr(random(25)+65)+chr(random(25)+65)+chr(random(25)+65)
                +chr(random(25)+65)+chr(random(25)+65)+chr(random(25)+65);

      Listbox1.Items.Add(newWord);

Kommentar im Kommentar
(*  {}  {}   {}  *)

Mehrfachsortierung innerhalb einer Tabelle
IndexFieldName.= ArtikelNr; KundenNr

Rechenzeit freigeben (multitaskingfreundlich)

Häufig ist es notwendig, dass ein Programm während der Ausführung komplexer Prozesse Windows trotzdem die Möglichkeit gibt, Rechenzeit zu erhalten. Dadurch lässt sich das entsprechende Programm im Hintergrund ausführen. Die dazu notwendige Routine lautet

Application.ProcessMessages

Durch den Aufruf der Routine werden alle anliegenden Ereignisse von Windows ausgeführt und danach die Kontrolle an das aufrufende Programm zurückgegeben.


Form immer zentrieren

Häufig wird die Frage gestellt, wie man ein beliebiges Form immer zentriert auf dem Bildschirm anzeigen lassen kann. Der einfachste Weg geht über das Property Position welches man auf poScreenCenter setzen muss. Das geht entweder im Code oder im Objektinspektor.


Menü programmgesteuert öffnen

Hier ist die funktionierende einfache Lösung, die ich nach einigen Stunden Schweiss nicht fand und beim Surfen durch die WinAPI-Hilfe durch Zufall gefunden habe:

procedure TMyForm.ButtonRemote(Sender: TObject);
  begin
    PostMessage(Handle,wm_sysCommand,sc_keymenu, 0);
    PostMessage(Handle,wm_KeyDown,vk_Return, 0);
  end;

Übersicht über weitere Tips und Tricks

Für den Download einer Datei mit weiteren Delphi-Tips und Tricks klicken Sie hier.

Die Datei enthält folgende Tips und Tricks:

Zurück zum Inhaltsverzeichnis


PS: Aktualisierte Delphi-Links finden sich in den Web Design Links unter der Rubrik Programmiersprachen / Techniken.


Diese Webseite wurde am 21.05.18 um 17:10 von rothen ecotronics erstellt oder überarbeitet.

Impressum

Zurück zu rothen ecotronics

Printed on 100% recycled electrons!