5,379
社区成员
发帖
与我相关
我的任务
分享
procedure TCform.ProcessorMessage1Click(Sender: TObject);
begin
FprocessorMsg.FormStyle := fsStayOnTop;
FprocessorMsg.Show;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TForm1.Create(Application) do begin
Top := 30;
Left := 30;
FormStyle := fsStayOnTop;{设置这个属性}
Show;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TForm1.Create(Application) do begin
Top := 30;
Left := 30;
Show;
end;
end;