Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.07.16;
Скачать: CL | DM;

Вниз

Форма   Найти похожие ветки 

 
Ivolg ©   (2006-06-29 23:14) [0]

Как создать программно форму, так чтобы она была видна на TaskBar"е ?


 
Мефисто   (2006-06-29 23:32) [1]

Вроде, где-то уже было... Попробуй в FAQ глянуть.


 
Loginov Dmitry ©   (2006-06-29 23:50) [2]


unit Unit2;

interface

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

type
 TForm2 = class(TForm)
 private
   { Private declarations }
 protected
   procedure CreateParams(var Params :TCreateParams); override;
 public
   { Public declarations }
 end;

var
 Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 Params.ExStyle := Params.ExStyle or WS_Ex_AppWindow;
end;

end.


(c) DelphiWorld


 
Loginov Dmitry ©   (2006-06-29 23:55) [3]

procedure TForm3.FormCreate(Sender: TObject);
begin
 SetWindowLong
   (Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
end;


(c) DelphiWorld


 
Ivolg ©   (2006-06-30 09:27) [4]

>>Loginov Dmitry

Большое спасибо !



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

Текущий архив: 2006.07.16;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.009 c
3-1147751981
D@Nger
2006-05-16 07:59
2006.07.16
Резервирование БД


2-1151576916
learner
2006-06-29 14:28
2006.07.16
Как отправить строку в нить ?


2-1151514986
NORDmen
2006-06-28 21:16
2006.07.16
Поток в созаднном мной классе


2-1151683104
resuS
2006-06-30 19:58
2006.07.16
консоль и TStrings;


4-1144313939
Eraser
2006-04-06 12:58
2006.07.16
Fast User Switching и интерактивный сервис.





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