Изменение размеров формы Опции

[sheka]

Код (Показать/Скрыть)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  n: byte;
  StartTime: TDateTime;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  inc(n);
  case n of
    1:
      begin
        Timer1.Enabled := True;
        StartTime := Now;
      end;
    2: Timer1.Enabled := False;
    3: Halt;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered := true;
  n := 0;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Label1.Left := (form1.Width - Label1.Width) div 2;    //не выполняется
  Label1.Top := (form1.Height - Label1.Height) div 2; //выполняется
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var s: string;
begin
   DateTimeToString(s , 'hh:mm:ss.zzz', Now-StartTime);
   Label1.Caption := s;
end;

end.

Почему-то в FormShow выполняется только вторая строка, не зависимо от того, в каком порядке они стоят.
Форма развернута на весь экран.

Сообщение отредактировано: sheka - 25.08.2010 16:13

[volvo]

Почему-то в FormShow выполняется только вторая строка, не зависимо от того, в каком порядке они стоят.

Перенеси в FormResize, и посмотри что будет.

[sheka]

Но все равно интересно получается, т.к. если преред присваиванием выводить все размеры и положения формы и лабела, то все выводит правильно.

ЗЫ: Делал когда-то, чтобы программа была поверх панели задач, а сейчас не могу вспомнить. Подскажите этот момент.

[Client]

FormStyle.fsStayOnTop ?

[sheka]

Спасибо. Возможно..Я просто уже все перепробовал - ничего. Надо будет на ХРюше попробовать.

[volvo]

Спасибо. Возможно.

Возможно - то возможно, но это - частичное решение. Твое окно будет над TaskBar-ом ровно до того момента, пока TaskBar не захочет стать активным (либо, если он виден - то пользователь щелкнул по нему мышью, либо нажал на кнопку "Start" на клавиатуре, или еще как). Как только это произошло - второе Topmost окно (да, да, TaskBar - это тоже Topmost окошко) становится активным, а из двух "самых верхних" окон в системе "более верхнее" - то, которое активно сейчас.

[sheka]

Существует лучшее решение?

[Rian]

Существует лучшее решение?

врядли лучшее... можно вызывать bringtofront

[volvo]

Существует лучшее решение?

Нет. Единственно правильное решение - не делать так, чтобы твоя программа перекрывала то, чего она перекрывать не должна.

Информация к размышлению: Что если две программы сделают это?

[Client]

немного офтопа
что-то по ссылке не заходит у меня ссылка на этот сайт вроде уже где то была и тогда тоже не заходило...
конец немного офтопа

[sheka]

Прикольно. Если можете, скажите, что это такие за программы, которым все же должно быть разрешено "быть первыми"

[volvo]

Разрешено должно быть системным утилитам. Скажем тот же ProcessExplorer, когда выставлено "Always On Top" в опциях, не должен ничем перекрываться. Равно как и TaskBar. И окно, появляющееся по Alt+Tab. Представь, что ты сделал - таки программу, которая "выше абсолютно всех", а потом захотел воспользоваться возможностью Windows переключаться на другое приложение (ну, или не ты, а кто другой). Ан нет, ты ж сам себя перехитрил, получается. Твое окно тогда перекрывало бы системное.