怎样捕捉到动态的控件的位置(50分)

  • 主题发起人 主题发起人 elfgirl
  • 开始时间 开始时间
1213: 我把你的代码稍作了修改
var
flag:boolean;
sx,sy,oldx,oldy:integer;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
flag:=True;
sx:=x;
sy:=y;
canvas.MoveTo(sx,sy);
canvas.Pen.Mode:=pmnotxor;
oldx := x;
oldy := y;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if not flag then exit;
//擦除原线
canvas.MoveTo(sx, sy);
canvas.LineTo(oldx,oldy);
//画新线
oldx:=x;
oldy:=y;
canvas.MoveTo(sx,sy);
canvas.LineTo(oldx,oldy);
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
flag:=false;
end;
 
请问有没有办法让一个登陆窗口先出现,输入登陆信息后点击确定后,工程窗体(main form)才
出现.我用 Form1=new TForm1(NULL);
Form1->Show();
两个窗体同时出现了,怎样只让登陆窗口先出现,然后主窗体才出现.我用showmodal只有登陆
窗口出现,而主窗体不出现
 

Similar threads

回复
0
查看
804
不得闲
S
回复
0
查看
896
SUNSTONE的Delphi笔记
S
S
回复
0
查看
873
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部