為何我每次要按左鍵一次滑鼠才會跟我移動一次呢?? |
|
答題得分者是：領航天使
|
|
o.s
一般會員   發表：39 回覆：36 積分：15 註冊：2003-05-24 發送簡訊給我 |
問我明明已經有寫onmousemove了ㄚ為何 還會這樣?它應該是要跟著我一起移動的呀???怪怪 unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Menus; type
TMainform = class(TForm)
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Image1: TImage;
procedure FormCreate(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure FormDragDrop(Sender, Source: TObject; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end; var
Mainform: TMainform; implementation {$R *.dfm} procedure TMainform.FormCreate(Sender: TObject);
begin
image1.Visible:=false;
end; procedure TMainform.N2Click(Sender: TObject);
begin
image1.Visible:=true;
end; procedure TMainform.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Timage(sender).BeginDrag(true);
end; procedure TMainform.FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if source is timage then accept:=true;
end; procedure TMainform.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if source is timage then
begin
timage(source).Left:=x;
timage(source).Top:=y;
end;
end;
end. 各位好ㄚ 發表人 - o.s 於 2004/03/06 00:21:01
|
|
領航天使
站長   發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
引言: q1:紅色箭頭地方即是覆蓋地方有什方式能把鎚子至換到上面呢? q2:我以在formcreate裡面隱藏了image2但要怎樣才能顯示圖檔呢駐也以用了 timer1控制器也已寫程序在上如上但image2為何也不能以一定的時間出現呢??a1:在image2上按下滑鼠右鍵 Control -> Bring to front a2:應該是 procedure TForm1.Timer1Timer(Sender: TObject); begin IMAGE2.Visible:=NOT IMAGE2.Visible; APPLICATION.ProcessMessages; end; ～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
發表時間：2004-03-06 00:10:54
IP:218.170.xxx.xxx 未訂閱
系統時間：2025-01-30 12:57:51
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |