Показать сообщение отдельно
  #9  
Старый 01.06.2010, 12:27
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Цитата:
Сообщение от Djenya
Помогите пожалуйста сделать программку, которая будет отображать на рабочем столе календарь(желательно визуально красивый), и чтобы на каждую дату можно было считывать какую-то информацию с БД.
Как это можно реализовать???
что-бы форма отображалась только поверх раб.стола, но не поверх остальных окон, нужно при создании параметров указать родительское окно, для VCL приложений это делается так:
Код:
  TForm1 = class(TForm)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public declarations }
  end;
...
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style + WS_CHILD;
  Params.WndParent := GetDesktopWindow();
end;
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием