PAS = Easy Button
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('Lazarus makes my day'); //A message will be displayed with the content... end;
Source: wiki.lazarus.freepascal.org
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('Lazarus makes my day'); //A message will be displayed with the content... end;