IniFile := TInifile.create(ExtractFilePath(Application.ExeName) + 'gamecontrole2.ini'); try if messagedlg('Vil du slette den valgte item?', mtconfirmation,[mbyyes,mbno], 0) = mrno then exit; IniFile.DeleteKey('List', FlatListBox1.Items[FlatListBox1.ItemIndex]); FlatListBox1.items.delete(FlatListBox1.itemindex); finally IniFile.Free
eller IniFile := TInifile.create(ExtractFilePath(Application.ExeName)+ 'gamecontrole2.ini'); try if messagedlg('Vil du slette den valgte item?', mtconfirmation,[mbyyes,mbno], 0) = mryes then begin IniFile.DeleteKey('List', FlatListBox1.Items[FlatListBox1.ItemIndex]); FlatListBox1.items.delete(FlatListBox1.itemindex); end; finally IniFile.Free
hvis du bruger: Application.MessageBox ('valgfri tekst', 'Valgfri overskrift', MB_ICONINFORMATION + MB_YESNO); og hvis windowsxx er på dansk, vil knapperne også vises på dansk.
ok, det gør den ellers på min pc, men hvis den ikke virker på alle er dit svar nok bedst
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.