Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls
    Delphi
    by sakura, 2. Jul 2003
  Es ist nicht zu erkennen, was für ein Klassentyp der Sender sein soll. Deshalb, wenn es z.B. vom Typ TButton ist, dann geht das wie folgt.procedure Tfrm_dlg_farben.inp_pflichtClick(Sender: TObject);
  begin
  if not Sender is TButton then
  Exit;
  ColorDialog := TColorDialog.Create(Application);
  try
  ColorDialog.Color := TButton(sender).color;
  if ColorDialog.Execute then
  ...