1:修改程序图标应该不是个问题
2:修改标题栏:我通常是这样作:
2.1: set form's attribute to bsnone(无标题区)
2.2: 在form的顶部加入panel,再加入image,可以加入个性化最大,最小
关闭等按钮,设置其点击事件为minimize等等。
2.3: 对于panel,设置OnMouseMove事件:
procedure TForm1.Panel1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if ssleft in shift then
begin
ReleaseCapture;
Form1.perform(WM_syscommand, $F012, 0);
end;
end;
达到拖拽效果。