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:

• Suchdialogoptimierung
• Mehrfachsortierung innerhalb einer Tabelle
• Hinzufügen eines Feldes zu einer bestehenden Tabelle
• Components at Runtime
• Inherit a property
• Save an Integer with a string in an TString list object
• TTabbedNotebook use much of the system resources?
• Multitaskingfähiges Delay
• Schnelle Zufallswörter um Listen etc zu füllen
• Kommentar im Kommentar
• Create a Paradox table with an AutoIncrement field
• Fill created table at runtime
• Sort created table at runtime
• Delete created table at runtime
• Cell DBGridPosition in Runtime
• Change the color of a grid cell in a TDBGrid
• Create Indexes at runtime
• Skalierbarkeit der Auflösung zur Laufzeit
• Calculation with Date within Calculated Fields
• Thousands Separator
• Which memory model does Delphi use?
• DLL Call at Runtime
• Component Builder
• Was macht ein Konstruktor?
• Send the button a message to make it think it was
• Books to Software Engineering
• Books about Programming
• Benchmark with PowerBuilder
• Power of Inheritance
• Create Alias at Runtime
• «If as» als Vererbungshierarchie
• Copy one TimeStamp from one File to Another
• Change in an Editbox the Name and synchronise the tab
• Getting the LineNumber from a Memo
• SetRange Beispiel
• Check Previous Instance
• Menu Zugriff fernsteuern
• All Ini Files in Delphi 1
• Search in Querys
• Pointer Arithmetic
• Move the Form by Timer
• Eigene Events auslösen
• Select a specific field on a TDBGrid to get focus
• Datenbankexport in eine ASCII-Datei.
• Zugriff auf Datenbank überprüfen.
• Grösse von Forms steuern
• Get Execution-Path
• Logical Size of Reocord
• OLE 2 Automation Besipiel
• Get physicalRecSize
• Get Numbers of Records/Seq
• Check SQL-Query
• Tabulatoren zur Laufzeit setzen
• Bitmap size drawing
• Schutz von Methoden
• Nachricht an Button für z.B. eine CBT-Demo
• Draw in a DBGrid
• Listen mit Objekten verwalten
• Button auf enable abfragen
• Probleme Update 1.02
• FocusControl mit Labels
• Delphi BonMot des Jahres
• Modale Fenster immer oben rechts
• OnDataChange Beispiel
• Control zur Laufzeit verschieben
• Daten von Zeilen und Spalten in DBGrid berechnen
• Drag and Drop von DB auf ein Feld
• Send own messages to the queue
• Add a component at runtime to Notebook/TabbedNotebook
• Iterate and count controls with logger
• Routine zum Cracken eines Files
• All the loaded Modules
• XOR Verschlüsselung
• Open Arrays Beispiel
• API Nachrichten abfangen
• SQL Such Dialog mit Substitutionsparameter
• Scrollbar with Key Control
• Nodes and Node Stores
• Debugging and Errors and Exceptions
• TPriorityQueue (Heap Beispiel)
• Set focus on a specific field on a TDBGrid
• Ein DBNavigator mit n-DBGrids
• TList zum Verwalten von Variablen
• Actual and formal parameter with pointers
• Iterate through tabbednotebook pages to see each object
• Ressourcen sparen mit TTabbedNotebook
• Iterate a Table and use outline control
• Flush the DataBuffer to the table (i.e. hard write to disk)
• How can I tell if share is loaded from Delphi?
• Checken ob Disk in Laufwerk A
• What is a Callback function, and how do I create one?
• Inc versus x:=x + 1 in assembler test
• Store Data beyond year 2000
• Start an exe from delphi
• Ein Liste (TList) mit Records füllen und verwalten

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!