Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sniper_w,
9. Mär 2005
procedure TForm1.StringGrid1DragDrop(Sender, Source: TObject; X,
Y: Integer);
Ah sooo...ist mir auch nicht aufgefallen. :mrgreen:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sniper_w,
9. Mär 2005
procedure TForm1.Timer1Timer(Sender: TObject);
var r:tpoint;
begin
caption :=' Screen -> x: '+inttostr(Mouse.CursorPos.X)+' y: '+inttostr(Mouse.CursorPos.Y);
r:= Mouse.CursorPos;
windows.ScreenToClient(StringGrid1.Handle,r);// TopGrid.Handle wäre es bei dir
caption :=caption+' Client -> x: '+inttostr(r.X)+' y: '+inttostr(r.Y);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sniper_w,
9. Mär 2005
Was ist TopGrid? :gruebel: :roll:
Beim TStringGrid und TDrawGrid wäre es so:
procedure TForm1.DrawGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var col,row:integer;
begin
DrawGrid1.MouseToCell(x,y,col,row);
Label1.Caption:='x: '+inttostr(col)+' y: '+inttostr(row);
end;