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

Вниз

Как изменять только Width компонента Panel мышью в Runtime?   Найти похожие ветки 

 
stany ©   (2002-08-18 21:55) [0]

.


 
Ученик ©   (2002-08-18 22:52) [1]

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then begin
ReleaseCapture;
SendMessage(Panel1.Handle, WM_NCLBUTTONDOWN, HTRIGHT, 0)
end
end;


 
stany ©   (2002-08-18 23:17) [2]

Спасибо, но желательно что-бы Panel рисовалась сразу(без предварительной рамки)


 
Ученик ©   (2002-08-18 23:24) [3]

TForm1 = class(TForm)
Panel1: TPanel;
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
FStartPoint : TPoint;
FMouseDown : Boolean;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then begin
FMouseDown := True;
FStartPoint := Point(X, Y)
end
end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
FMouseDown := False
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if FMouseDown then begin
Panel1.Width := Panel1.Width + X - FStartPoint.X;
FStartPoint := Point(X, Y)
end
end;


 
stany ©   (2002-08-18 23:29) [4]

Thank you very much!



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
4-96017
StAL
2002-05-29 19:33
2002.08.29
LastMsgBoxInfo. Переват API-вызовов


1-95836
Alcatraz
2002-08-17 13:32
2002.08.29
Как сделать опрделение дисков в Дельфи ?


3-95712
Димон1
2002-08-09 11:15
2002.08.29
ADOQuery имеет ParamByName ?????


1-95828
Brand
2002-08-17 00:05
2002.08.29
Как поступить?


4-96019
LEXaP
2002-06-25 00:17
2002.08.29
Неактивный пункт меню сделать активным