Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.01.2012, 21:50   #1
Arhanvel
 
Регистрация: 02.05.2011
Сообщений: 6
По умолчанию Изменение BorderStyle и WindowState во время выполнения программы

Необходимо по нажатию кнопки изменить BorderStyle на bsNone а WindowState на wsMaximized. В нете нашел единственное что

SendMessage( Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0 );

Но и это не пашет (работаю под Delphi XE2, может быть поэтому). Если кто-нибудь знает, то отпишитесь, а то уже сайтов 40 облазил, а ответа нигде нет-только для VB способ, но в Delphi он не пашет

P.S. способ "напролом", т.е. просто в коде прописать замену, не работает-даже после Form1.Update ничего не происходит
Arhanvel вне форума Ответить с цитированием
Старый 31.01.2012, 22:37   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Так?:
Код:
unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
BorderStyle:=bsNone;
WindowState:=wsMaximized;
end;

end.
Все работает и на ХЕ, нечего на нее гнать бестолку.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 31.01.2012, 22:59   #3
Arhanvel
 
Регистрация: 02.05.2011
Сообщений: 6
По умолчанию

Спасибо, самое странное, что только сейчас увидел свою ошибку - я писал изменение на другую форму, которую я в процессе не видел, только сейчас понял!

И кстати, по мне-так XE2-лучшая из существующих BDE, так что против нее я не имел и ничего не имею против, а только обеими руками ЗА))
Arhanvel вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Время выполнения программы! BlackFishSQL Паскаль, Turbo Pascal, PascalABC.NET 10 28.11.2011 23:48
Время выполнения программы. Небесный Паскаль, Turbo Pascal, PascalABC.NET 3 12.05.2011 09:39
Изменение Version Info во время выполнения программы на Delphi Stim777 Общие вопросы Delphi 3 11.01.2011 20:24
Изменение свойств объекта во время выполнения процедуры Gypsy Общие вопросы Delphi 4 28.12.2009 11:49
Время выполнения программы Zhamie Общие вопросы Delphi 8 15.09.2009 15:26