Цитата:
|
Сообщение от Claster
сделал по вашему варианту но все ровно происходит SC_RESTORE
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | procedure TProgramForm.wmsyscommand(var msg: TMessage);
var Sender:TObject;
begin
if msg.WParam = SC_CLOSE then
bCloseClick(Sender)
else
<font color="Red">inherited;</font>
if msg.WParam = SC_MAXIMIZE then
begin
ShowWindow(ProgramForm.Handle, SW_SHOWMAXIMIZED);
ProgramForm.Align := alClient;
Maximized := true;
imResize.Visible := false;
end;
if msg.WParam = SC_RESTORE then
msg.Result := 0
else inherited;
end;
|
|
ну где же по моему то? красный инхерит вызовется перед проверкой SC_RESTORE.
Код:
1 2 3 4 5 6 7 | if then
begin
end else if then
begin
end else if then
begin
end;
|
в помощь. перед вставкой в свой код хотя бы проверяй на пустом приложении работает или нет!
07.07.2011, 09:07
Древовидный вид