|
부탁드릴께요...
아래부분은 RX에서 이미지를 넣는 소스부분인데요 이걸 빌더로 변환부탁드려요..
procedure TMainForm.InsertBitmap(Sender: TObject);
var
Pict: TPicture;
begin
with FOpenPictureDialog do begin
if Execute then begin
Pict := TPicture.Create;
try
Pict.LoadFromFile(FileName);
ClipQANDA.Assign(Pict);
Editor.PasteFromClipQANDA;
finally
Pict.Free;
end;
end;
end;
end;
|