Hallo,
In der Schule mach ich in Informatik delphi und wir haben eine Aufgabe bekommen.
Deshalb möchte ich gerne wissen, wie man für den Befehl OneClick, der auf einen Button liegt, in Delphi ein Kommando schreibt, mit dem beim Klick auf den Button sic die Hintergrundfarbe ändern soll. Den Befehl für den Klick auf den Button hab ich schon im Programm, aber wie mach ich weiter, damit sich die Farbe ändert.
Hi
Ich weis nicht wie der konkrete Syntax aussieht aber ich weis, dass Delphi in der Hinsicht ein paar Ähnlichkeiten mit .NET hat. Also:
ich nenn den Button jetz mal button1, da du keinen Namen vorgegeben hast.
Es müsste dann etwas in der Art button1.Color doer button1.BackColor geben. (Du wolltest doch die Farbe vom Button verändern oder?)
Mit button1.Color := RGB(120,230,0) legst du beispielsweise die Farbe dann auf den entsprechenden RGB-Wert fest.
Besser wäre diese Frage sicherlich im Delphi-Brett aufgehoben 
MfG IGnow
Hallo,
Wessen Hintergrundfarbe meinst Du?
Wenn Du die Behandlungsmethode des OnClick-Ereignisses von Delphi hast erstellen lassen, so ist die dann eine Methode des Formulars, welches den Button enthält. Im „Standardfall“ hast du den „Button1“ auf dem „Form1“ und die von Delphi erstellte Methode „TForm1.Button1Click“ als Ereignismethode.
Die Hintergrundfarbe von „Form1“ änderst du einfach, indem du in dieser Methode die Eigenschaft „Color“ setzt. Diese Eigenschaft bezieht sich auf „Form1“, weil es in einer Moethode von „Form1“ steht.
Beispiel:
Procedure TForm1.Button1Click(Sender:TObject);
begin
Color := clRed;
end;
Die Farbe des Buttons kannst du setzten mit
Button1.Color := clBlue;
Die Hintergrundfarbe des Windows-Desktop kannst du auch ändern, dazu musst du einen Wert in der Regitry ändern. In Delphi gibt es dafür die TRegistry-Klasse (s. Delphi-Hilfe). Hier ist der Wert des Schlüssels HKCU\Control Panel\Colors zu setzen. Das aber nur als Hinweis, denn ich glaube NICHT, das das die Aufgabe gewesen sein soll.
VG
Jochen
Hallo,
Die Farbe des Buttons kannst du setzten mit
Button1.Color := clBlue;
nö, der TButton hat keine Eigenschaft Color:
TButton = class(TButtonControl)
...
published
property Action;
property Align;
property Anchors;
property BiDiMode;
property Cancel: Boolean read FCancel write FCancel default False;
property Caption;
property Constraints;
property Default: Boolean read FDefault write SetDefault default False;
property DragCursor;
property DragKind;
property DragMode;
property Enabled;
property Font;
property ModalResult: TModalResult read FModalResult write FModalResult default 0;
property ParentBiDiMode;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop default True;
property Visible;
property WordWrap;
property OnClick;
property OnContextPopup;
property OnDragDrop;
property OnDragOver;
property OnEndDock;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnMouseActivate;
property OnMouseDown;
property OnMouseEnter;
property OnMouseLeave;
property OnMouseMove;
property OnMouseUp;
property OnStartDock;
property OnStartDrag;
end;
Manfred
Hallo,
nö, der TButton hat keine Eigenschaft Color:
Ja, stimmt. Da habe ich mich vertan. Danke für die Korrektur!
VG
Jochen