제목 표시 줄의 색과 단추 변경

Question

내 응용 프로그램에서 제목 표시 줄을 변경하고 싶습니다. 나는 어떻게해야하는지 잘 모른다. 나 좀 도와 줄 수있어?

저는 Delphi에서 많은 예제를 발견했지만 Lazarus에서 작동하지 않습니다.

제목 표시 줄의 색상이나 단추를 변경하려면 어떻게해야합니까? 제목 표시 줄을 사용하면 양식의 제목을 의미하는 경우

Answer 1

은 당신이 할 필요가있다 :

Form1.Caption := 'The title of the form'; 

이 이름을 Form1있는 형태입니다.

Answer 2

폼의 BorderStyle을 bsNone으로 설정하여 원래 제목 표시 줄을 해제하십시오. 그런 다음 상단 정렬 패널을 새로운 제목 막대로 추가하십시오.이 제목 표시 줄은 어떤 방식 으로든 색상을 지정할 수 있으며 원하는대로 SpeedButton을 추가 할 수 있습니다.

type 
    TForm1 = class(TForm) 
    Panel1: TPanel; 
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; 
     Shift: TShiftState; X, Y: Integer); 
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer 
    ); 
    private 
    FMouseDownPt: TPoint; 
    public 
    end; 

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; 
    Shift: TShiftState; X, Y: Integer); 
begin 
    FMouseDownPt := Point(X, Y); 
end; 

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; 
    X, Y: Integer); 
begin 
    if (ssLeft in Shift) then 
    begin 
    Left := Left + (X - FMouseDownPt.X); 
    Top := Top + (Y - FMouseDownPt.Y); 
    end; 
end;