записи на рабочем столе

← →
TruePunk © (2007-07-25 15:43) [0]

Добрый день! Хочу реализовать что-то типа лабелов на рабочем столе, подскажите куда копать:компоненты, процедуры, функции? ЗЫ: фишку с желтыми стикерами не предлогать!

← →
stanislav © (2007-07-25 16:20) [1]

Так ?
procedure TForm1.Button1Click(Sender: TObject);
Var H:Hwnd; DC:HDC; R:Trect;
begin
H:=windows.GetDesktopWindow;
DC:=Windows.GetWindowDC(H);
R.Left:=200;
R.Top:=200;
R.Right:=400;
R.Bottom:=400;
Windows.DrawText(dc,"Label1",6,R,DT_CENTER);
end;

← →
TruePunk © (2007-07-31 09:00) [2]

спасибо! а можно к этому как-нить прикрутить Drag&Drop?

← →
Сергей М. © (2007-07-31 09:18) [3]

> можно к этому как-нить прикрутить Drag&Drop?

Что и куда "драгдропать" требуется ?

← →
Инс © (2007-07-31 10:20) [4]

> stanislav © (25.07.07 16:20) [1]

Вот только во-первых, изображение затрется, а во-вторых, HDC освобождать нужно

← →
iXT © (2007-07-31 10:28) [5]

> изображение затрется

Дай, догадаюсь :) Сейчас кто-нить предложит TTimer с интервалом эдак 50-100 :)

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

> нада что бы юзер мог эту запись тягать по рабочему столу
> туда, куда захочет

А если так:

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; procedure Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const Sc_dragmove = $F012; begin ReleaseCapture; Perform(WM_SYSCOMMAND, Sc_dragmove, 0); end; procedure TForm1.FormCreate(Sender: TObject); begin BorderStyle:=bsNone ; end; end.

записи на рабочем столе Найти похожие ветки