No nie wiem jak wywołać parametr Sender: TObject poprawnie, co tam wpisać aby dział program.
Poniżej przedstawiam kod źródłowy programu
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure wyswietl(Sender: TObject;i:integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
obrazki:array[1..10] of Timage;
i,x:integer;
implementation
{$R *.dfm}
procedure Tform1.wyswietl(Sender: TObject;i:integer);
begin
MessageDlg('Klikneles obrazek nr. '+inttostr(i), mtInformation, [mbOK],0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
x:=50;
for i:=1 to 10 do begin
obrazki[i]:=TImage.Create(self);
obrazki[i].Left:=x;
obrazki[i].Top:=10;
obrazki[i].Width:=40;
obrazki[i].Height:=40;
obrazki[i].Parent:=self;
obrazki[i].Visible:=True;
obrazki[i].Canvas.TextOut(10,10,inttostr(i));
obrazki[i].OnClick:=wyswietl(,i); //tutaj nie wiem jak wywolac parametr Sender: Tobject
x:=x+50;
end;
end;
end.