Форум: "Основная";
Текущий архив: 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.008 c