Shape färben während button click

toxicmaster · Beiträge: 94

hi,

also meine frage ist, ich habe nen shape und nen button und will während des button clicks, dass mein shape1 gefährbt wird.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if button1.Click then
  Shape1.Brush.Color := clRed;
end;

gut soweit bin ich jetzt. aber bei dem then wird mir folgendes gesagt: "Ausdruck muss boolean sein."

Ehemaliges Mitglied Erhaltene Danke: 1

Also du willst, dass das Shape gefärbst ist, solange der Button nach unten gedrückt wird, richtig?
Dann müsstest du im OnMouseDown den Button färben und ihn bei OnMouseUp entfärben.

toxicmaster · Beiträge: 94

thx hat funktioniert

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme