Hallo,
nachdem die unten aufgeführte Procedure ausgeführt wurde, soll mein Fenster neugezeichnet werden, es passiert jedoch nichts. Woran kann das liegen?

markieren

Code:

procedure messageout (text : String);
var i, j : integer;
    insert_message, matrix_full : boolean;
begin
 insert_message := false;
 matrix_full   := true;
  for i := 1 to 10 do
    begin
     if message_matrix[i] = '' then matrix_full := false; // Matrix Voll
     if (message_matrix[i] = '') and (insert_message = false) then
       begin
         message_matrix[i] := text;
         insert_message := true;
       end;
    end;
  if matrix_full = true then
      begin
        for j := 1 to 10 do
          begin
            if j < 10 then
              message_matrix[j] := message_matrix[j+1]
             else
           message_matrix[10] := text;
         end;
      end;
 
 UpdateWindow (hmain); // keine dieser Anweisungen zeigt eine Wirkung
 // SendMessage (hmain,WM_PAINT,0,0);
 // PostMessage (hmain,WM_PAINT,0,0); }
end;

hmain wird beim erstellen des Fenster zugewiesen:

markieren

Code:

  hmain := CreateWindowEx(0, ClassName,AppName, WS_POPUP, 0,
  0, GetSystemMetrics(SM_CXFULLSCREEN), GetSystemMetrics(SM_CYFULLSCREEN), 0, 0, hInstance, nil);

Mfg Salomon

InvalidateRect() solte helfen.

markieren

Code:

InvalidateRect(Form1.Handle, nil, TRUE);

Habe ich da ein form1.handle gesehen
Hat 1A funktioniert, Danke.