Renk sürükle bırak

4tane label ekleyiniz,3labele renk veriniz,1labele sürükleyince değişen rengin kodu=

procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);

begin

label4.Color:=(source as Tlabel).Color;

end;

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;

  State: TDragState; var Accept: Boolean);

begin

accept:=source is Tlabel;

end;

end.