Forum: Sonstige Fragen zu Delphi
Delphi
by StefanDP,
1. Jun 2004
Sorry!
probier mal folgendes:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// SetRoundMode(rmDown); // erstes kästchen wird zu 0|0
SetRoundMode(rmUp); // erstes Kästechen wird zu 1|1
ShowMessage('X: ' + IntToStr(round(X/32)) + ', Y: ' + IntToStr(round(Y/32)));
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by StefanDP,
1. Jun 2004
dann schau dir mal die funktion "ClientToScreen" an.
Forum: Sonstige Fragen zu Delphi
Delphi
by StefanDP,
1. Jun 2004
procedure TForm1.Button1Click(Sender: TObject);
var
p: TPoint;
begin
GetCursorPos(p);
Button1.Caption := 'X: ' + IntToStr(p.X) + ', Y: ' + IntToStr(p.Y);
end;
das ist doch mal ein anfang?!
Forum: Sonstige Fragen zu Delphi
Delphi
by StefanDP,
1. Jun 2004
was verstehst du unter "kasten"? :gruebel: