Ich möchte mich hier nicht als Voll-Noob präsentieren, aber ich hab da glaube ich nen Ansatz:
- TPanels als Buttons einsetzen:
- Eigenschaften:
-- Alignment: taLeftJustify
-- Color: indiv./ clBtnFace
-- Caption := [n Spaces] + Caption
- Diese Funktionen deklarieren:
Delphi-Quellcode:
procedure BtnUp(Panel: TPanel);
begin
Panel.BevelOuter := bvLowered;
Panel.BevelInner := bvRaised;
end;
procedure BtnDown(Panel: TPanel);
begin
Panel.BevelOuter := bvRaised;
Panel.BevelInner := bvLowered;
end;
- dazu passend MouseDown- und MouseUp-Prozeduren deklarieren
- letztendlich ein TImage auf das Panel ziehen, und zur Laufzeit dort die Bilder hineinladen.
Wenn ich jetzt noch wüsste, wie man (ich) Komponenten erstellen kann wär die Welt perfekt *fg*
mfg