VPF::Создание компонентов в run time - Форум программистов

XAKEPEHOK

Дата 18.10.2006, 20:13 (ссылка)

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

Загрузка ...

Шустрый

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

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

Всем привет! Я тут новенький, и хотел попросить у вас помощи! У меня проблема в следующем: Вот создаю я динамически таймеры, все короче путем делается, но вот проблема: как присвоить таймеру процедуру определенную именно при создании самого таймера? Ненадо предлагать другие пути, уже все продумал, это единственный! Заранее благодарен! Спасибо

darkart

Дата 18.10.2006, 20:50 (ссылка)

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

Загрузка ...

Опытный

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

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

Если правильно понял, то

Код


unit main;

interface

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

type
  TfrmMain = class(TForm)
    btnCreateTimer: TButton;
    btnDestroyTimer: TButton;
    procedure btnCreateTimerClick(Sender: TObject);
    procedure btnDestroyTimerClick(Sender: TObject);
  private
    { Private declarations }
  public
    MyTimer:TTimer;//таймер
    procedure MyTimerProcedure(Sender:TObject);//процедура таймера
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}
procedure TfrmMain.MyTimerProcedure(Sender:TObject);
begin
  ShowMessage('Timer Procedure');//для примера вывод сообщения
end;
procedure TfrmMain.btnCreateTimerClick(Sender: TObject);
begin
  MyTimer:=TTimer.Create(frmMain);//создаем таймер - владелец форма
  MyTimer.Interval:=3000;//задаем интервал
  MyTimer.OnTimer:=MyTimerProcedure;//задаем ф-цию для таймера
  MyTimer.Enabled:=true;//включаем таймер
  btnCreateTimer.Enabled:=false;
  btnDestroyTimer.Enabled:=true;
end;

procedure TfrmMain.btnDestroyTimerClick(Sender: TObject);
begin
  MyTimer.Free;//уничтожаем таймер
  btnCreateTimer.Enabled:=true;
  btnDestroyTimer.Enabled:=false;
end;

end.

Ну и пример, собственно

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

Dynamic_Timer.rar 4,89 Kb

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