Oh man, das ist ja...wie beschreibt man das... also irgendwie blick ich nicht durch. Hast du den Code selber geschrieben oder ist der von irgendeinem (Achtung: Wortwitz) Leerkörper?
Die Beizeichnungen sind auch furchtbar gewählt. Wie kann man einer von einem BitBtn Abgeleiteten Komponente den Namen "Gruenpanel" geben? Da denk ich, die Komponente wäre von einem Panel abgeleitet...
Hm also wenn ich deinen Code richtig verstanden habe, müsste er weitestgehen stimmen, allerdings erstellt du einfach nie einen TBuntTaster, sondern nur die komischen Gruen- und BuntPanels. Die Möglichkeit, die Caption beim Mousedown und Mouseup zu ändern hat aber nur der TBuntTaster, welchen du gar nicht verwendest.
Ich würde also den Code von BtGruenPanelClick ändern:
Delphi-Quellcode:
procedure TForm1.BtGruenPanelClick(Sender: TObject);
var GruenPanel: TGruenPanel;
MyBuntTaster: TBuntTaster;
begin
GruenPanel:=TGruenPanel.Create(Form1);
GruenPanel.Parent:=Form1;
GruenPanel.Left:=200;
GruenPanel.Height:=50;
MyBuntTaster:=TBuntTaster.Create(Form1);
MyBuntTaster.Parent:=Form1;
MyBuntTaster.BringToFront;
end;
Grüße