имеется форма 1 с scrollbox в котором paintbox, и форма 2 в которой нужно через if в форме 1 в paintbox загрузить bmp картинку.

Есть форма1

procedure TForm1.FormCreate2(Sender: TObject);
begin
BMP:= TBitmap.Create;
end;

Далее

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
bmp.LoadFromFile('1e.bmp');
DoubleBuffered := True;
begin
ScrollBox1.Visible:=True;
ScrollBox2.Visible:=False;
ScrollBox3.Visible:=False;
ScrollBox4.Visible:=False;
end;
end;

и форма 2

procedure TForm2.Button1Click(Sender: TObject);
begin
case CheckListBox4.ItemIndex of
0..9: begin
et := 1;
kor := 0;
Shle := CheckListBox4.ItemIndex+1;
if shle = 10 then form1.image2.Picture.LoadFromFile(I ntToStr(et)+ (IntToStr(kor)+ (IntToStr(Shle)+('1010.k.bmp'))));
end;
10..13: begin
et := 1;
kor := 1;
Shle := CheckListBox4.ItemIndex+1;
end;
14..17: begin
et := 1;
kor := 3;
Shle := CheckListBox4.ItemIndex+1;
end;

end; // case

form2.Close;

if FileExists (IntToStr(et)+ (IntToStr(kor)+ (IntToStr(Shle)+('.k.bmp')))) then
begin

if et = 2 then form1.image2.Picture.LoadFromFile(I ntToStr(et)+ (IntToStr(kor)+ (IntToStr(Shle)+('.k.bmp')))); //вот зарузка на image все работает

как тоже самое сделать только с paintbox

paintbox картинку не хранит, ее нужно перерисовывать в его событии OnPaint

если не сложно, подскажите пож. уже все перепробовал 3ий день над этим туплю(

так вроде подсказал.

грузи в TBitmap, отрисовыйвай на  paintbox

не особо шарю((  пробовал не получается(( напишите пож. пример

> не особо шарю((

учи мат. часть или иди чистить улицы...

да да вот так вот...
брат я норм прогу сделал в одном месте туплю
могу скинуть

загрузить картинку в битмап
в обработчике события OnPaint отрисовывать битмап, например, c помощью PaintBox.Canvas.Draw
при необходимости принудительной перерисовки делать PaintBox Refresh

спасибо

http://originalparfum.ru/muzhskaya/now_men
да да вот так вот...
брат я норм прогу сделал в одном месте туплю
могу скинуть

Скиньте пожалуйста если вам не сложно?