Das ist jetzt aber blöd.
Denn wie soll man denn bei einer solchen
Unit ein Bild laden, ohne eine ImageList etc zu haben?
Außer einer Resource-Datei fällt mir da gerade nix ein.
Das hier ist nur ein test
Delphi-Quellcode:
unit EditCustom;
interface
uses
Vcl.StdCtrls;
type
TEditCustom =
class(TEdit)
public
procedure Click;
override;
end;
implementation
procedure TEditCustom.Click;
begin
Self.Text := '
clicked';
inherited;
end;
end.
Delphi-Quellcode:
var
EditCustom: TEditCustom;
begin
EditCustom := TEditCustom.Create(Panel18);
EditCustom.Parent := Panel18;
EditCustom.Top := 50;
EditCustom.Left := 10;
end;
Zitat:
und musst ggf. den Eingabebereich um dessen Breite (ggf. zzgl. etwas Offset) verkleinern.
Eingabebereich verkleinern oder Edit verkleinern?