как бмп проявить

← →
Alik (2004-01-05 19:58) [0]

создаю
var
imag: Tbitmap;
form1.create(...);
begin
imag:=Tbitmap.Create;
imag.picture.loadfromfile("c:\1.bmp"); и нету его, и чме это лучше чем просто кинуть на форму имаг1 и написать image1.picture.loadfromfile("c:\1.bmp");

← →
Юрий Федоров © (2004-01-05 20:01) [1]

form1.create(...);
странный код. Сомневаюсь, что это и задумано

imag.picture.loadfromfile
Это не откомпилируется

← →
YuRock © (2004-01-05 20:26) [2]

Ничем, просто так (не совсем так) иногда удобно писать. А иногда удобнее и imag.bitmap.loadfromfile

← →
YuRock © (2004-01-05 20:28) [3]

В догонку - вернее, "image1.picture.loadfromfile("c:\1.bmp");"

← →
Mihey © (2004-01-05 20:49) [4]

Надо:

...
var Bmp: Tbitmap; // переменная
...
Bmp := TBitmap.Create; // создаём объект
Bmp.LoadFromFile("c:\1.bmp"); // грузим файл
Form1.Canvas.Draw(0, 0, Bmp); // рисуем на канве форме
...
Bmp.Free; // освобождаем память
...

← →
Alik (2004-01-05 21:00) [5]

var
bit : Tbitmap;
procedure TForm1.FormCreate(Sender: TObject);
begin
bit:=tbitmap.create;
bit.loadfromfile("c:\bg.bmp");
form1.canvas.draw(0,0,bit);
bit.free;
end;
и нечего не показываеться

Вот ты сам посуди, что наваял. Рисуешь на форме, когда она создаётся. Надо:

procedure TForm1.FormPaint(Sender: TObject);
var bit: Tbitmap;
begin
bit:=tbitmap.create;
bit.loadfromfile("c:\1.bmp");
form1.canvas.draw(0,0,bit);
bit.free;
end;

как бмп проявить Найти похожие ветки