SpeedButton im Edit erzeugen

[d3g]

Hi Tpercon,

meinst du sowas?

Delphi-Quellcode:

procedure TForm1.Edit1Enter(Sender: TObject);
var
  Button: TSpeedButton;
begin
  Button := TSpeedButton.Create(TComponent(Sender));
  with Button do begin
    Parent := TWidgetControl(Sender);
    Caption := 'Test';
    Left := TEdit(Sender).Width - 40;
    Top := 2;
    Width := 38;
    Height := Parent.Height - 2;
    Flat := True;
    Font.Color := clRed;
    Font.Style := Font.Style + [fsBold];
    OnClick := ButtonClick;
  end;
end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
  ShowMessage('Test');
end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
  ShowMessage('Test');
end;

Es wäre aber intelligenter, den Button im OnCreate-Ereignis zu erstellen und ihn nur im OnEnter-Ereignis sichtbar bzw. im OnExit-Ereignis unsichtbar zu machen. So wie hier wird nämlich bei jedem OnEnter-Ereignis der Button neu erstellt.

MfG,
d3g