procedure TForm1.pastebutClick(Sender: TObject);
var
Bitmap: TBitmap; HasFormat: boolean;
begin
if Clipboard.HasFormat(CF_BITMAP) then Image1.Picture.Bitmap.Assign(Clipboard) ;
end;
ругается на это((( 'TBitmap' does not contain a member named 'HasFormat'
и где взять такую штуковину, ну, в общем прямоугольник выделения? клипбоард в юзес добавил
ищю ищю, найти не могу(
зы. я делаю пеинт. вот там надо копировать\вырезать вставить. вроде процедурки ввел эти, а когда жму на кнопку то ошибка.((( хелп!
|