procedure TForm1.Button2Click(Sender: TObject);
begin
ShowCursor(False);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowCursor(True);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowCursor(False);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowCursor(True);
end;
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)