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

Вниз

Помоготи с использованием процедуры.   Найти похожие ветки 

 
Cr@sh   (2002-08-13 13:21) [0]

Добрый день. Ув. мастера, помогите примером как юзать процедуру
Image1.Picture.Onchange.
Мне надо, чтобы при изменении картинки выдавался мессадж.
Заранее спасибо.


 
Lex_!   (2002-08-13 13:25) [1]

Ну и пиши в обработчике ентом:
ShowMessage.....


 
Cr@sh   (2002-08-13 13:27) [2]

Ну пример, пример напиши.


 
Skier   (2002-08-13 13:29) [3]

>Cr@sh
Если это продолжение твоего предыдущего вопроса, то
до Onchange дело не дойдёт...


 
Cr@sh   (2002-08-13 13:56) [4]

То есть?


 
Opuhshii   (2002-08-13 14:11) [5]

interface
........
TForm1 = class(TForm)
...
procedure PictureOnChange1(Sender: TObject);
.....
implementation
....
procedure TForm1.PictureOnChange1(Sender: TObject);
begin
inherited;
Showmessage("Picture Change!!");
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.OnChange:=PictureOnChange1;
Image1.Picture.LoadFromFile("D:\Program Files\Common Files\Borland Shared\Images\Splash\256Color\finance.bmp");
end;


 
Cr@sh   (2002-08-13 14:30) [6]

>Opuhshii
Пасиба огромное, так выручил...


 
Cr@sh   (2002-08-13 14:45) [7]

>Opuhshii
А как сделать, чтобы при этом картинка менялась?
Не то он мессадж выдает, а картинку менять не хочет.


 
Opuhshii   (2002-08-13 14:53) [8]

procedure TForm1.PictureOnChange1(Sender: TObject);
begin
Showmessage("Picture Change!!");
Image1.Invalidate;
inherited;
end;


 
Cr@sh   (2002-08-13 14:57) [9]

>Opuhshii
Спасибо, а не мог ли ты объяснить че такое Image1. Invalidate и что такое inherited. Или хотя бы только второе.
Заранее спасибо.


 
Skier   (2002-08-13 15:06) [10]

>Opuhshii
А зачем inherited ?


 
Vaddya   (2002-08-13 15:21) [11]

>Crash
Открой любую книжку по Delphi и найдешь ответы буквально в первых главах.



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

Форум: "Основная";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.007 c
1-71152
CrazyHackers
2002-08-13 15:11
2002.08.22
Перебрать TreeView


14-71357
AlexRya
2002-07-25 00:47
2002.08.22
Так себе вопросик


1-71120
Сережа
2002-08-05 11:05
2002.08.22
Запуск программы из значка или из значка в трее


1-71169
Const@ntiN
2002-08-13 18:21
2002.08.22
КАК СДЕЛАТЬ...?????????????????????? НЕЕЛП МЕЕ ПЛИЗ!!!!!!!!!!!!!!


1-71255
KPY
2002-08-12 06:49
2002.08.22
Помогите с новым типом





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский