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

← →
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 и найдешь ответы буквально в первых главах.

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