home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / KeyMouse / WhichButton.pas < prev   
Pascal/Delphi Source File  |  1998-02-12  |  367b  |  15 lines
  1. procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  2.   Shift: TShiftState; X, Y: Integer);
  3. var
  4.   s : string;
  5. begin
  6.   if Sender = Button1 then
  7.     s := 'Button1'
  8.   else if Sender = Button2 then
  9.     s := 'Button2'
  10.   else if Sender = Button3 then
  11.     s := 'Button3'
  12.   else s := 'Unknown Object';
  13.   ShowMessage('You clicked ' + s);
  14. end;
  15.