Code für mehrere Komponenten verwenden

[Pentium 80486]

Hallo,

entweder stelle ich mich gerade ein wenig blöd an, oder ich weiß wirklich keine Lösung.

Es geht darum, dass ich einen größeren Code gerne nur ein Mal vorhanden haben, aber mehrfach, für verschiedene Komponenten, verwenden möchte.

Dieser beginnt mit

Delphi-Quellcode:

 with TListBox(Control).Canvas do

Wie genau muss ich dieser Zeile umschreiben, dass ich meinen Code für eine TListBox und eine TComboBox verwenden kann?

[mkinzler]

Z.B. auf einen gemeinnsamen Vorfahren Casten. Am Besten auf einen der möglich hoch im Vererbungsschema ist und die gemeinsame eigenschaft besitzt. In diesem Fall TWinControl

[Pentium 80486]

TWinControl kennt aber kein Canvas mehr, oder irre ich mich?

[Bummi]

Du kannst Dich in WM_Paint hängen und Dein eigenes Canvas erzeugen, ansonsten per GetDC das Handle holen, in Deinem Canvas verwenden und wieder freigeben .

Delphi-Quellcode:

Canvas := TCanvas.Create;
try
Canvas.Handle := Message.DC;
finally
Canvas.Free;
end;

[Jumpy]

Könnt man nicht auch alles in eine Prozedur auslagern, der man ein Canvas als Parameter übergibt (und der es egal ist, wo das Canvas herkommt) und die dann schaut, ob das Canvas was kann :)