VPF::МЫШКА И IMAGES - Форум программистов

JOOO

Дата 17.8.2003, 06:45 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

МНЕ НУЖНО ЧТОБЫ ПРИ НАЖАТИИ НА ФОРМУ ПОЯВЛЯЛСЯ РИСУНОК НО ИМЕННО ТАМ ГДЕ КЛИКНУЛИ МЫШКОЙ

Mikel

Дата 17.8.2003, 07:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

Репутация: 1
Всего: 2

Обрабатывайте какое-нибудь событие типа OnMouseDown/OnMouseUp/OnMouseClick

--------------------

...so remember, it's better to burn out than to fade away

<Spawn>

Дата 17.8.2003, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Вот тебе примечрик(в каталог проги помести BMP-файл "test.bmp"):

Код

var
  Form1: TForm1;
  BitMap:TBitMap;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if not BitMap.Empty then
 Canvas.Draw(x,y,BitMap);
end;

initialization
BitMap:=TBitMap.Create;
BitMap.LoadFromFile(ExtractFilePath(Application.ExeName)+'test.bmp');

finalization
FreeAndNil(BitMap);

end.

Но при таком подходе при получении формой сообщения WM_PAINT перерисовываемые участки будут затирать нарисованые изображения. Для того, чтобы обойти это, можно обработать OnPaint или, например, поместить на форму TImage с Align=alClient(в этом классе предусмотрена автоматическая перерисовка изображения)

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »