RichEdit Table

[Delphi.Narium]

SendMessage hat doch 'nen Rückgabewert, den würd' ich mal abfragen. Nur <> S_OK reicht da kaum aus.

Delphi-Quellcode:

var
  iReturn : Integer;
begin
...
  iReturn := SendMessage(RichEdit1.Handle, EM_INSERTTABLE, WPARAM(@rows), LPARAM(@cells));
  if iReturn <> S_OK then
  begin
    ShowMessage(Format('Sendmessage liefert folgenden Rückgabewert: %d',[iReturn]));
  end;
...

Und dann mal schauen, ob's irgendwo 'ne Info zu dem so erhaltenen Rückgabewert gibt.

[himitsu]

Man lese die Hilfe:
* SendMessage hat zusätzlich auch noch GetLastError als Result, wenn gewisse Fehler auftraten
* und ja, EM_INSERTTABLE hat auch mehr, als nur S_OK

Zitat:

Gibt S_OK zurück, wenn die Tabelle eingefügt wird, oder einen Fehlercode, falls nicht.

vermutlich geht es auch so (damit man die Nummer nicht selbst entziffern muß)

Delphi-Quellcode:

if iReturn <> S_OK then
  ShowMessage(SysErrorMessage(iReturn)));

oder besser

Delphi-Quellcode:

if iReturn <> S_OK then
  RaiseLastOSError(iReturn);