Forum: Object-Pascal / Delphi-Language
Delphi
by Langa,
8. Jun 2006
hab das ja in der art gemacht
if (z > 200) and (MessageDlg('Das Bild geht über das Fenster hinaus!' + #13
+ #10 +
'Soll wirklich gemalt werden?', mtInformation, , 0) <> mrYes)
then
begin
Edit1.text := '50';
Edit2.Text := '10';
Start.Visible := true;
Stop.Visible := false;
Forum: Object-Pascal / Delphi-Language
Delphi
by Langa,
8. Jun 2006
und hier die exe zum anschauen
Forum: Object-Pascal / Delphi-Language
Delphi
by Langa,
8. Jun 2006
Hab ein niedliches Programmchen geschrieben und hab noch eine frage.
und zwar wie man sehen kann hab ich das mit ner Paintbox gemacht und das fenster eingestellt das es nich kleiner oder größer gemacht werden kann. Dadurch ist ja nun die größe meiner Paintbox begrenzt. iich hab das nun so gemacht das wenn die zeichnung größer ist als die paintbox ist eine meldung kommt ob gezeichnet werde soll...