mahdi.sagga
دوشنبه 17 خرداد 1395, 11:43 صبح
با سلام و خسته نباشید خدمت اساتید دلفی
بنده اومدم یک آرایه از نوع Timage تعریف کردم بعدش اومدم چندتا فایل تصویری رو در داخل آرایه ذخیره کردم و بعدش عکس ها رو داخل فرم به نمایش گذاشتم
حالا چه کدی باید بنویسم تا موقعی که روی یکی از عکس ها کلیک میکنم شماره خانه آرایه رو مثلا توی یه مسیج باکس یا توی یه لیبل برام نمایش بده .
کدهایی رو که استفاده کردم رو هم میزارم .
var
FormListImage: TFormListImage;
Pic: array [0..35] of TImage;
i:integer;
implementation
{$R *.dfm}
procedure TFormListImage.ControlMouseDown(
Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
begin
FormListImage.Caption:={چه کدی اینجا بنویسم تا شماره خانه آرایه رو به من بده؟}
end;
procedure TFormListImage.BitBtn1Click(Sender: TObject);
begin
i:=strtoint(FormListImage.LabelFlag.Caption);
pic[i] := TImage.Create(FormListImage);
pic[i].Parent := FormListImage;
with pic[i] do begin
Width := 150;
Height := 130;
Align:=alTop;
if OpenPictureDialog1.Execute then
Picture.LoadFromFile(OpenPictureDialog1.FileName);
Stretch:=True;
OnMouseDown := ControlMouseDown;
end;
FormListImage.LabelFlag.Caption:=IntToStr(i+1);
end;
اینم یه عکس از فرم برنامه :
140738
با تشکر
بنده اومدم یک آرایه از نوع Timage تعریف کردم بعدش اومدم چندتا فایل تصویری رو در داخل آرایه ذخیره کردم و بعدش عکس ها رو داخل فرم به نمایش گذاشتم
حالا چه کدی باید بنویسم تا موقعی که روی یکی از عکس ها کلیک میکنم شماره خانه آرایه رو مثلا توی یه مسیج باکس یا توی یه لیبل برام نمایش بده .
کدهایی رو که استفاده کردم رو هم میزارم .
var
FormListImage: TFormListImage;
Pic: array [0..35] of TImage;
i:integer;
implementation
{$R *.dfm}
procedure TFormListImage.ControlMouseDown(
Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
begin
FormListImage.Caption:={چه کدی اینجا بنویسم تا شماره خانه آرایه رو به من بده؟}
end;
procedure TFormListImage.BitBtn1Click(Sender: TObject);
begin
i:=strtoint(FormListImage.LabelFlag.Caption);
pic[i] := TImage.Create(FormListImage);
pic[i].Parent := FormListImage;
with pic[i] do begin
Width := 150;
Height := 130;
Align:=alTop;
if OpenPictureDialog1.Execute then
Picture.LoadFromFile(OpenPictureDialog1.FileName);
Stretch:=True;
OnMouseDown := ControlMouseDown;
end;
FormListImage.LabelFlag.Caption:=IntToStr(i+1);
end;
اینم یه عکس از فرم برنامه :
140738
با تشکر