delphi 不要自带的标题栏?(急急急!~~~~~~)

[dirkill]

delphi 不要自带的标题栏然后自己加入图片,并且可以随意的拖动窗体到任何位置,点击image的时候可以触发onclick的事件,

这种问题怎么解决!

[fjtxwd]

不要自带的标题栏
把form的borderstyle属性设置成none

加入图片
在form中放一个IMAGE控件，image的picture属性导入图片

随意的拖动窗体到任何位置
本来就可以啊

拖动图片的话是这样
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dx := X;
dy := Y;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssleft in shift then
begin
image1.left:=image1.left+x-dx;
image1.Top:=image1.Top+y-dy;
end;
end;

点击image的时候可以触发onclick的事件
双击image就可以

[APP开发王]

友情帮顶下！顺便学习学习！

[zkyEric]

友情帮顶下

[simayidianwei]

SetWindowLong(handle,GWL_STYLE,(GetWindowLong(handle,GWL_STYLE) and not WS_CAPTION) or WS_BORDER or WS_THICKFRAME); 不要标题栏

拖动的话，网上很多代码，自己找下，应该可以的，我用的：(可拖动，需要鼠标拖动那个控件，就放到控件的MouseDown就可以了)
procedure TForm1.image1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button=mbleft Then
begin
ReleaseCapture;
SendMessage(Form1.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
end;
end;

[etersoft]

学习学习。