Neue Komponente aus TSpinEdit

[Rob]

Hallo,

ich habe ein Problem mit einer neuen Komponente.
Diese soll von TSpinEdit abgeleitet werden (TCustomSpinEdit)
Sie soll als Value eine Integer Zahl erhalten.
Soweit kein Problem.
Aber ich muss irgendwie die Methoden zur Darstellung überschreiben, aber ich finde nicht welche das sind.
Bsp: Als Value soll die Zahl 105 zugewiesen werden die Darstellung "1:45" also ein SpinEdit um Minuten/Sekunden darzustellen.

Wer kann mir sagen welche Methoden ich beim Spinedit überschreiben muss?
Wo kann ich mir die benötigten Informationen beschaffen, ich finde irgendwie ...nichts.

Danke,
Grüße
Rob

[u-boot]

Vielleicht noch nicht ganz brauchbar aber ein Ansatz:

Code: Alles auswählen

procedure TForm1.SpinEdit1EditingDone(Sender: TObject);
begin
  SpinEdit1.Text:=inttostr(SpinEdit1.Value div 60)+':'+inttostr(SpinEdit1.Value mod 60);
end;

[Cargo_03]

Soweit kein Problem.
Aber ich muss irgendwie die Methoden zur Darstellung überschreiben, aber ich finde nicht welche das sind.
Bsp: Als Value soll die Zahl 105 zugewiesen werden die Darstellung "1:45" also ein SpinEdit um Minuten/Sekunden darzustellen.

Wer kann mir sagen welche Methoden ich beim Spinedit überschreiben muss?
Wo kann ich mir die benötigten Informationen beschaffen, ich finde irgendwie ...nichts.

Danke,
Grüße
Rob

Hallo Rob,

Also starte den Code-Browser unter Ansicht.
Dann im Bereich wählst du den Bereich aus. Das ist die LCL.
Dann gibst Du unter Bezeichner anzeigen dein TCustomSpinEdit an.
Daraufhin erscheint die Unit in der TCustomSpinEdit definiert ist. Darin siehst Du auch welche Werte Du überschreiben musst.

Grüße Cargo_03

[Rob]

Hallo Rob,

Also starte den Code-Browser unter Ansicht.
Dann im Bereich wählst du den Bereich aus. Das ist die LCL.
Dann gibst Du unter Bezeichner anzeigen dein TCustomSpinEdit an.
Daraufhin erscheint die Unit in der TCustomSpinEdit definiert ist. Darin siehst Du auch welche Werte Du überschreiben musst.

Grüße Cargo_03

Das war es.

Danke!

Jetzt kann ich weitermachen.

Grüße
Rob

[Rob]

Jetzt kann ich weitermachen.

Leider doch nicht.

Ich finde einfach nicht wo ich einsteigen muss um den angezeigten Text zu setzen.
Die spinEdits haben ein Feld Value (entweder double oder Int)

Während der Verarbeitung wird TMySpinButton.RealGetText: TCaption; aufgerufen (eine Methode die ich überschreibe), dort formatiere ich meinen Text,
der wird auch als Result schön übergeben.
Aber leider nicht angezeigt.

Grüße
Rob