Главная страница
    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
15-1150515613
Retr
2006-06-17 07:40
2006.07.16
Как вы защищаете свой компьютер от вирусов?


2-1151152802
b.o.n.d.007
2006-06-24 16:40
2006.07.16
Я не могу понять, почему Делфи не считает куски формулы?


15-1150280183
начинающий
2006-06-14 14:16
2006.07.16
Clipboard via COM


2-1148732482
inri13666
2006-05-27 16:21
2006.07.16
Кнопка Пуск


2-1151591357
Id
2006-06-29 18:29
2006.07.16
Номер в имени компонента





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