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

Вниз

DrawFocusRect   Найти похожие ветки 

 
Pascal's programmer ©   (2002-11-06 05:03) [0]


unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
XPos,YPos:Integer;
MDown:boolean=false;
implementation

{$R *.dfm}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var rect:TRect;
begin
if MDown then
begin
rect.Left:=XPos;
rect.Top:=YPos;
Rect.Bottom:=Y;
rect.Right:=X;
DrawFocusRect(handle,rect);
Caption:=Inttostr(x)+" "+inttostr(y);
end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MDown:=true;
XPos:=x;
YPos:=y;
end;

end.



 
Pascal's programmer ©   (2002-11-06 05:19) [1]

Это для тех, кто сейчас в чате сидел было



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

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

Наверх




Память: 0.46 MB
Время: 0.021 c
1-82815
Lamak
2002-11-09 03:09
2002.11.25
RichEdit


1-82748
iNew
2002-11-15 09:13
2002.11.25
Качаю файл по протоколу Zmodem, используя компоненту Async32


14-82997
The_Vizit0r!
2002-11-07 12:39
2002.11.25
А где можно найти?


1-82796
Live_Aus_Berlin
2002-11-13 16:37
2002.11.25
У кого нибудь есть исходники проги которая считает производные


1-82689
MetalFan
2002-11-14 11:56
2002.11.25
есть ли дискета в дисководе