73%
22%
19%
11%
6%
Donnerstag, 10. Februar 2005, 22:39
Hi danke dir dafuer jedoch sieht das n bissel blöd aus find ich wenn keine leiste einblende das mit bsdialog geht in meinem fall auch nicht da dann in meiner delphi version zu mindest die menuleiste verschwindet
hab jetzt für das verschieben der größe ne alternative gefunden
es gibt im formular ein ereignziss das Onresize, es tritt wenn der benutzer die größe des forms verändert. So wird imemr abgefragt wenn der nutzer dei weiten verändern dann setze die weite zurück auf x also kann ersie nicht mehr verändert man sieht nur noch ein kleines flimmern wenn mans versucht stört aber echt net bin damit zufrieden jetzt bräuchte ich nur noch ne methode das er das fenster nicht verschieben
da dachte ich mir ich nehme die gleiche abfrage mit einem timer verkünft komischerweise ändert er es dann in jedem intervall selbst wenn ich das nicht bewegt hab und bei einem intervall von 3 / 10 sek gibt das ein schönes flimmern. aändere ich den intervall so bringt mir das auch nichts weil die funktion des timers verloren geht
jemand noch ne idee ?
mfg
f4r
hab jetzt für das verschieben der größe ne alternative gefunden
es gibt im formular ein ereignziss das Onresize, es tritt wenn der benutzer die größe des forms verändert. So wird imemr abgefragt wenn der nutzer dei weiten verändern dann setze die weite zurück auf x also kann ersie nicht mehr verändert man sieht nur noch ein kleines flimmern wenn mans versucht stört aber echt net bin damit zufrieden jetzt bräuchte ich nur noch ne methode das er das fenster nicht verschieben
da dachte ich mir ich nehme die gleiche abfrage mit einem timer verkünft komischerweise ändert er es dann in jedem intervall selbst wenn ich das nicht bewegt hab und bei einem intervall von 3 / 10 sek gibt das ein schönes flimmern. aändere ich den intervall so bringt mir das auch nichts weil die funktion des timers verloren geht
jemand noch ne idee ?
mfg
f4r
Für die, die es noch nicht kennen. Das Alphabet: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
Donnerstag, 10. Februar 2005, 22:51
huhu,
hab was gefunden:
das is für die größe:
und das für das verschieben:
getestet und funktionsfähig!
hab was gefunden:
das is für die größe:
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
private
{ Private-Deklarationen }
procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
...
procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
inherited;
with Msg.MinMaxInfo^ do
begin
ptMinTrackSize.x := Form1.Width;
ptMaxTrackSize.x := Form1.Width;
ptMinTrackSize.y := Form1.Height;
ptMaxTrackSize.y := Form1.Height;
end;
end;
|
und das für das verschieben:
|
|
Quellcode |
1 2 3 4 5 6 7 8 9 |
public
procedure WMNChittest(var msg:TWMNChittest);Message WM_NChittest;
...
procedure TForm1.WMNChittest(var msg:TWMNChittest);
begin
DefaultHandler(Msg);
if Msg.result=HTCAPTION then
Msg.result:=HTCLIENT;
end;
|
getestet und funktionsfähig!
