Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];

Вниз

Статус окна.   Найти похожие ветки 

 
ПчелкаМайя   (2006-10-22 19:23) [0]

Почему этот код не работает?

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Case Form1.WindowState of
wsMinimized : Application.Restore;
wsNormal : Application.Minimize;
end;
end;


Минимизе произходит а не восстанавливается. WindowState не меняется? А как узнать что форма минимизирована?


 
Kolan ©   (2006-10-22 22:08) [1]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Case Form1.WindowState of
wsMinimized : Form1.WindowState := wsNormal;
wsNormal : Form1.WindowState := wsMinimized;
end;
end;


?


 
Elen ©   (2006-10-23 07:52) [2]


> ПчелкаМайя

Событие Application.OnMinimize - Срабатывает при сворачивании
Событие Application.OnRestore - Срабатывает при разворачивании

Пример :
unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   procedure FormHide(Sender: TObject);
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormHide(Sender: TObject);
begin
// Свернулось
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMinimize:=FormHide;
end;

end.


 
Percent   (2006-10-23 09:01) [3]

OnMinimize := FormHide;

Кхм...


 
Elen ©   (2006-10-23 09:04) [4]


> Percent

:) Это к примеру! Есссно там другое название желаБтельно



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.048 c
2-1161357456
Zurius
2006-10-20 19:17
2006.11.05
ComboBox


3-1157687718
Slym(RO)
2006-09-08 07:55
2006.11.05
Advantage и кривые blobы как пофиксить?


4-1150704205
_Вован
2006-06-19 12:03
2006.11.05
Не могу скопировать/удалить файл на диске Novell 4.2


2-1161083354
tytus
2006-10-17 15:09
2006.11.05
Как рисовать на шапке разными цветами?


2-1161081499
Kolan
2006-10-17 14:38
2006.11.05
Как пользоватся Move?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский