Re: Button inserted function

Return to index

Author

Message

Yernar

Posted: 04/15/2003 6:39:15

procedure TForm1.mitButtonCompClick(Sender: TObject);

var btn: TButton;

const Captions: array[0..9] of String =

       ('Help','Exit','Cancel','Ok','Close','Run','Options...','Minimize',

'Hide','Show');

begin

  btn := TButton.Create(Self);

  btn.Caption := Captions[Random(10)];

  btn.OnClick := YourProcedure;

  RichViewEdit1.InsertControl('',btn,rvvaBaseline);

end;

procedure TForm1.YourProcedure(Sender: TObject);

begin

  ShowMessage('You click me!);

end;