Главная страница
    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.046 c
2-1161250863
Axis_of_Evil
2006-10-19 13:41
2006.11.05
работа с XML документом


15-1160337818
Knight
2006-10-09 00:03
2006.11.05
Подскажите... такие приборы ещё производят?


15-1160653501
Dust
2006-10-12 15:45
2006.11.05
Подскажите средство создания и ведения документации, для Delphi


15-1160507911
Kerk
2006-10-10 23:18
2006.11.05
Имперский марш из Star Wars в mp3


2-1161460722
funky
2006-10-21 23:58
2006.11.05
удалить опред. строчку из файла





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский