Текущий архив: 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