Panel - Farbe wechseln

[himitsu]

ja dann sollte es funktionieren

[Hawkeye219]

Hallo,

wenn du mit "06" die Version "Delphi 2006" meinst, dann setze einmal die Eigenschaft ParentBackground deines Panels auf den Wert False.

Gruß Hawkeye

[yasR]

Es klappt auch mit ParentBackground = false nicht, es klappt nur bei Panel11 der Effekt aber nicht bei den restlichen -.-

Delphi-Quellcode:

procedure TForm5.Panel11Click(Sender: TObject);
begin
 (Sender as TPanel).Color := RGB(195,195,195);
 delay(260);
 (Sender as TPanel).Color := clWhite;
end;

[himitsu]

hast du Panel11Click auch den OnClick-Ereignissen der anderen Panels zugewiesen?

[yasR]

Ahhhhhh.... Es liegt daran das sie noch kein OnClick Event haben.. aber muss ich das jetzt so machen:

Delphi-Quellcode:

procedure TForm5.Panel11Click(Sender: TObject);
begin

end;



procedure TForm5.Panel12Click(Sender: TObject);
begin
//...
end;



procedure TForm5.Panel13Click(Sender: TObject);
begin
//...
end;


procedure TForm5.Panel14Click(Sender: TObject);
begin
 //...
end;

[DeddyH]

Das kannst Du im OI machen, dann haben alle Panels dieselbe Behandlungsroutine, aber sie steht nur einmal im Quälkot.