Zitat von
NamenLozer:
PtInRect in der
Unit Windows. Es tut aber auch nicht weh, sich für solche kleinen Sachen schnell selber eine Funktion zu schreiben.
danke für die schnelle Antwort!
ich hab folgendes getestet:
also ich will wissen wann der Benutzer auf ein Shape klickt..
Delphi-Quellcode:
procedure TForm1.FormClick(Sender: TObject);
begin
if PtInRect(Shape1.ClientRect,mouse.cursorpos) then
label1.Caption:='OK'
else
label1.Caption:='Nö';
end;
doch wenn ich auf dem Shape klicke passiertz nichts, und wenn ich daneben klicke steht 'Nö' am Label..
das Problem kenn ich aber, ich klicke nicht auf die form wenn ich auf den Shape klicke, darum macht er nichts..
doch wie anders machen?
(ja, ich bin neu in diesem Bereich der Informatik, und nein ich wende jetzt keine Ausrede an
)