Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2007.12.16;
Скачать: [xml.tar.bz2];

Вниз

Как найти компонент?   Найти похожие ветки 

 
йцукенЫЧ   (2007-11-16 17:01) [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 правой кнопкой мыши?


 
tesseract ©   (2007-11-16 17:10) [1]

image.OnContextPopup:=MyOnContextPopup;

в ней переменная self и есть твоя картинка.


 
sniknik ©   (2007-11-16 17:29) [2]

http://delphimaster.net/view/2-1195222506/
спам



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2007.12.16;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.043 c
2-1195750473
Михаил С
2007-11-22 19:54
2007.12.16
приостановить выполнение программы


15-1195449555
Slider007
2007-11-19 08:19
2007.12.16
С днем рождения ! 19 ноября 2007 понедельник


15-1195260333
Pain
2007-11-17 03:45
2007.12.16
Никто не пробовал работать с gmail.com через Аутлук Экспресс?


1-1191010267
antonn
2007-09-29 00:11
2007.12.16
Права на запись в папку


2-1195451927
АндрейК
2007-11-19 08:58
2007.12.16
Заменить клик левой кнопки мыши на Ctrl+клик левой кнопки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский