| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Выделение группы контролов на форме....

DmitryPV ©   (2002-09-09 09:21:00) 

Добрый день!
Имеется следущая задача: на форме расположены несколько TPanel. Как с помощью мыши (в рантайме) выделить часть из них, обведя при этом рамкой, как это, например, происходит на рабочем столе виндов при выделении группы ярлыков? Как определить какие выделены, а какие - нет (здесь вроде надо анализировать координаты панелей) ? Как потом это выделение снять?
Буду благодарен за помощь!

---

DmitryPV   (2002-09-09 10:34:00) [1]

lenin ©
Большое спасибо за пример - все отлично работает!

---

lenin   (2002-09-09 10:10:00) [2]

Примерно такой вариант:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, math;

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormCreate(Sender: TObject);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
StX,StY: integer;
OlX, OlY: integer;
mdown: boolean;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if MDown then
begin
Canvas.DrawFocusRect(rect(min(StX,olx),min(StY,oly),max(StX,olx),max(StY,oly)));
OlX:=X;
OlY:=y;
Canvas.DrawFocusRect(rect(min(StX,olx),min(StY,oly),max(StX,olx),max(StY,oly)));
end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
StX:=x;
StY:=Y;
OlX:=X;
OlY:=y;
Canvas.DrawFocusRect(rect(StX,StY,OlX,OlY));
mdown:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
mdown:=false;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var rc1,rc2: TRect;
i: integer;
begin
mdown:=false;
rc1:=rect(min(StX,olx),min(StY,oly),max(StX,olx),max(StY,oly));
Canvas.DrawFocusRect(rc1);
for i:=0 to ControlCount-1 do
if Controls[i] is TPanel then
with Controls[i] as TPanel do
begin
rc2:=BoundsRect;
if (PtInRect(rc1,rc2.TopLeft))and(PtInRect(rc1,rc2.BottomRight)) then
caption:="++++"
else
caption:="----"
end;
end;

end.


---

Наверх