Форум: "Начинающим";
Текущий архив: 2007.08.26;
Скачать: [xml.tar.bz2];
Вниззаписи на рабочем столе Найти похожие ветки
← →
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 :)
← →
TruePunk © (2007-07-31 14:03) [6]нада что бы юзер мог эту запись тягать по рабочему столу туда, куда захочет. ЗЫ:Почему текст длиной более 6символов отображаецца кусками?
← →
Elen © (2007-07-31 14:17) [7]
> нада что бы юзер мог эту запись тягать по рабочему столу
> туда, куда захочет
А если так: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.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.08.26;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.047 c