Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Cr@sh © (2002-08-13 13:21:00)
Добрый день. Ув. мастера, помогите примером как юзать процедуру
Image1.Picture.Onchange.
Мне надо, чтобы при изменении картинки выдавался мессадж.
Заранее спасибо.

Vaddya (2002-08-13 15:21:00) [1]
>Crash
Открой любую книжку по Delphi и найдешь ответы буквально в первых главах.

Skier (2002-08-13 15:06:00) [2]
>Opuhshii
А зачем inherited ?

Cr@sh (2002-08-13 14:57:00) [3]
>Opuhshii
Спасибо, а не мог ли ты объяснить че такое Image1. Invalidateи что такое inherited. Или хотя бы только второе.
Заранее спасибо.

Opuhshii (2002-08-13 14:53:00) [4]
procedure TForm1.PictureOnChange1(Sender: TObject);
begin
Showmessage("Picture Change!!");
Image1.Invalidate;
inherited;
end;

Cr@sh (2002-08-13 14:45:00) [5]
>Opuhshii
А как сделать, чтобы при этом картинка менялась?
Не то он мессадж выдает, а картинку менять не хочет.

Cr@sh (2002-08-13 14:30:00) [6]
>Opuhshii
Пасиба огромное, так выручил...

Opuhshii (2002-08-13 14:11:00) [7]
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 13:56:00) [8]
То есть?

Skier (2002-08-13 13:29:00) [9]
>Cr@sh
Если это продолжение твоего предыдущего вопроса, то
до Onchange дело не дойдёт...

Cr@sh (2002-08-13 13:27:00) [10]
Ну пример, пример напиши.

Lex_! (2002-08-13 13:25:00) [11]
Ну и пиши в обработчике ентом:
ShowMessage.....

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »