Alloc
15-07-2014, 22:15
Приветствую многоуважаемые форумчане!
Помогите реализовать циклическую смену изображений по клику на TImage.
Вообщем есть две картинки в ресурсах. Мне необходимо чтобы они грузились по клику поочередно, т.е. у меня TImage выполняет функцию кнопки "Вкл./Выкл.". При нажатии грузится первая при следующем нажатии грузится вторая и т.д.
Знаю что можно грузить так:
var
RS: TResourceStream;
begin
RS := TResourceStream.Create(HInstance, 'Enabled', RT_RCDATA);
try
Image1.Picture.Bitmap.LoadFromStream(RS);
finally
RS.Free;
end;
как реализовать грамотно, подскажите люди добрые?
Помогите реализовать циклическую смену изображений по клику на TImage.
Вообщем есть две картинки в ресурсах. Мне необходимо чтобы они грузились по клику поочередно, т.е. у меня TImage выполняет функцию кнопки "Вкл./Выкл.". При нажатии грузится первая при следующем нажатии грузится вторая и т.д.
Знаю что можно грузить так:
var
RS: TResourceStream;
begin
RS := TResourceStream.Create(HInstance, 'Enabled', RT_RCDATA);
try
Image1.Picture.Bitmap.LoadFromStream(RS);
finally
RS.Free;
end;
как реализовать грамотно, подскажите люди добрые?