Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.21;
Скачать: CL | DM;

Вниз

Смена картинки на форме...   Найти похожие ветки 

 
Луарвик ©   (2003-07-08 19:02) [0]

Как програмно сменить картинку на форме? Какой елемент использовать?
Еще вопрос: каким оператором вызывать случайные числа?


 
s.ts   (2003-07-08 19:13) [1]

1. ExtCtrls.TImage
2. System.Random


 
Луарвик ©   (2003-07-08 19:15) [2]

Не многословен ты как я погляжу. Но спасибо!


 
Луарвик ©   (2003-07-08 19:19) [3]

Не, подожди! Все равно не понятно: че именно делать! Вот есть на форме image и при нажатии на кнопку картинка должна меняться. Как это замутить?


 
Anatoly Podgoretsky ©   (2003-07-08 19:25) [4]

А ты хоть в этот раз взглянул в справку по этим темам или опять нет?


 
s.ts   (2003-07-08 19:25) [5]


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile("image.bmp");
end;

end.



 
Луарвик ©   (2003-07-08 19:29) [6]

2 s.ts: э-э, так то оно из файла грузит! А скомпелировать вместе с прогой рисунки нельзя? Чтоб не зависима прога была?


 
Луарвик ©   (2003-07-08 19:30) [7]

2 s.ts: э-э, так то оно из файла грузит! А скомпелировать вместе с прогой рисунки нельзя? Чтоб не зависима прога была?
2 Anatoly Podgoretsky: А русского хелпа нигде нет?


 
Vladymir   (2003-07-09 02:50) [8]

Луарвик © (08.07.03 19:29)
Можно, запихнув картинку в ресурс.


 
PI{}Puk ©   (2003-07-09 06:56) [9]


> Луарвик ©

Можно и так сделать, загрузить в ImageList а потом менять

var aaa: TIcon;
begin
aaa := TIcon.Create;
ImageList1.GetIcon(1,aaa);
YouForm.Icon := aaa;
aaa.Free;

end;



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

Текущий архив: 2003.07.21;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
1-67905
3APA3A
2003-07-08 13:55
2003.07.21
Что это за I/O Error 183 ???


3-67730
niko4543
2003-06-27 23:29
2003.07.21
БД


1-67758
Гость
2003-07-08 19:46
2003.07.21
RTF то HTML


1-67834
MakNik
2003-07-07 12:34
2003.07.21
Как проверить есть ли файлы в папке???


4-68124
cain
2003-05-21 09:54
2003.07.21
мышь над компонентом