Образовательный портал Claw.ru
Всё для учебы, работы и отдыха
» Шпаргалки, рефераты, курсовые
» Сочинения и изложения
» Конспекты и лекции
» Энциклопедии

При восстановлении приложения в нормальный размер

OnShowHint: TShowHintEvent

При выводе строки подсказки (Hint)

Для примера хочу предложить вам пример программы, которая при простое увеличивает счетчик на единицу, а при нажатии клавиши перестает это делать. Поставьте на форму одну кнопку и метку. Свойство Caption метки должно быть равно '0';

unit Unit1;

interface

uses

   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

   TForm1 = class(TForm)

   Button1: TButton;

   Label1: TLabel;

   procedure Button1Click(Sender: TObject);

private

{ Private declarations }

   procedure count(Sender:TObject; var Done:boolean);

   procedure stop(var Msg:TMsg; var Handled:boolean);

public

{ Public declarations }

end;

var

   Form1: TForm1;

implementation

{$R *.DFM}


Рекомендуем скачать другие рефераты по теме: антикризисное управление, ценные бумаги реферат.


Категории:




Предыдущая страница реферата | 1  2  3  4  5 |


Поделитесь этой записью или добавьте в закладки

   



Рефераты от А до Я


Полезные заметки

  •