eee co? nie wiem o co ci chodzi ale czytaj dalej :)
otóż jeżeli chcesz aby w 2 formatce nie było normalnego paska to daj w objectinspector borderstyle na bsnone :)
I ja to tak zrozumiałem a jeżeli chcesz zrobić własn pasek to zrób takie coś.
stwórz jakiś tam komponent aby emulował pasek i następnie takie coś (funkcja drag and drop)
czyli: Przestudjuj ten kod z mojego programu może coś wyciągniesz z niego...
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, Buttons, StdCtrls;
type
TForm5 = class(TForm)
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Label1: TLabel;
procedure SpeedButton1Click(Sender: TObject);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton2Click(Sender: TObject);
procedure Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
x2, y2 : integer;
can : boolean;
public
end;
var
Form5: TForm5;
implementation
uses Unit1;
{$R *.DFM}
procedure TForm5.SpeedButton1Click(Sender: TObject);
begin
form1.close;
end;
procedure TForm5.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
p :TPoint;
begin
if button = mbleft then
begin
getcursorpos(p);
form5.left := p.x - 72;
form5.top := p.y - 16;
form1.left := p.x - 72;
form1.top := p.y;
can := true;
end;
end;
procedure TForm5.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button = mbleft then
begin
can := false;
end;
end;
procedure TForm5.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
p : TPoint;
begin
if can = true then
begin
getcursorpos(p);
form5.left := p.x - 72;
form5.top := p.y - 16;
form1.left := p.x - 72;
form1.top := p.y;
end;
end;
procedure TForm5.SpeedButton2Click(Sender: TObject);
begin
if form1.WindowState = wsnormal then
begin
form5.left := 0;
form5.top := 0;
form1.WindowState := wsminimized;
end else
begin
form1.WindowState := wsnormal;
form5.top := form1.Top - 16;
form5.left := form1.left;
end;
end;
procedure TForm5.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
p : TPoint;
begin
if button = mbleft then
begin
getcursorpos(p);
form5.left := p.x - 72;
form5.top := p.y - 16;
form1.left := p.x - 72;
form1.top := p.y;
can := true;
end;
end;
procedure TForm5.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
p : TPoint;
begin
if can = true then
begin
getcursorpos(p);
form5.left := p.x - 72;
form5.top := p.y - 16;
form1.left := p.x - 72;
form1.top := p.y;
end;
end;
procedure TForm5.Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button = mbleft then
begin
can := false;
end;
end;
end.
i to wszystko Pozdro