VPF::как скинуть nil - Форум программистов

brendi

Дата 31.10.2008, 18:25 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 6.10.2008

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

Помогите пожалуйста,нужно избавится от nil !!!Я установил процедуру image3.OnMousemove:=nil и мне нужно при нажатии левой клавиши мыши сделать её опять активной!!!Как это можно реализовать?

THandle

Дата 31.10.2008, 18:36 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Просто присвоить нудную процедуру обработки события. Пример:

Код



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.OnMouseMove := Image1MouseMove;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Image1.OnMouseMove := Nil;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Caption := Format('%s:%d %s:%d', ['X', X, 'Y', Y]);
end;

end.

Сам проект в аттаче на всякий случай.

Присоединённый файл ( Кол-во скачиваний: 5 )

IMM.rar 4,46 Kb

brendi

Дата 31.10.2008, 18:44 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 6.10.2008

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

Спасибо-всё вышло)))

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