Текущий архив: 2007.12.09;
Скачать: CL | DM;
Вниз
Как найти компонент TImage в данном случае? Найти похожие ветки
← →
йцукенЫЧ (2007-11-16 17:15) [0]Есть код:
for i :=1 to 10 do begin
with TImage.Create(Self) do
begin
if Names <> "" then Name :=Names;
if Tops <> "" then Top :=StrToInt (Tops);
if Lefts <> "" then Left :=StrToInt (Lefts);
if UnikalCode <>"" then Tag :=StrToInt(UnikalCode);
Width :=22;
Height :=18;
if State = "0" then
Picture.LoadFromFile(CurrentDir+"\blue.bmp")
else if State = "3" then
Picture.LoadFromFile(CurrentDir+"\yellow.bmp")
else
Picture.LoadFromFile(CurrentDir+"\green.bmp");
PopupMenu :=PopupMenu1;
Parent :=Self;
OnClick :=Abros;
end; end;
procedure TForm1.N8Click(Sender: TObject);
begin
end;
Делаются 10 картинок. Т.е. как видно из кода по нажатию правой кнопки мыши на компоненте TImage, всплывает меню. Sender становится у меня PopupMenu1.Как мне узнать именно ту картинку, по которой был сделан Click правой кнопкой мыши?
← →
sniknik © (2007-11-16 17:24) [1]> Как мне узнать именно ту картинку, по которой был сделан Click правой кнопкой мыши
TPopupMenu(Sender).PopupComponent
это конечно если
> Sender становится у меня PopupMenu1
что сомнительно...
← →
sniknik © (2007-11-16 17:29) [2]http://delphimaster.net/view/15-1195221717/
спам
Страницы: 1 вся ветка
Текущий архив: 2007.12.09;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.015 c
